@@ -621,7 +621,9 @@ that should be font-locked:
621621 `var' : Any non-local var gets the `font-lock-variable-name-face' .
622622 `deprecated' (default): Any deprecated var gets the `cider-deprecated-face'
623623 face.
624- `core' (default): Any symbol from clojure.core (face depends on type).
624+ `core' (default): Any symbol from clojure.core/cljs.core. The selected face will depend on type.
625+ Note that while rendering `core' , all types of vars (`macro' , `function' , `var' , `deprecated' )
626+ will be honored, regardless of the user's customization value.
625627
626628The value can also be t, which means to font-lock as much as possible."
627629 :type '(choice (set :tag " Fine-tune font-locking"
@@ -775,6 +777,8 @@ with the given LIMIT."
775777 macros functions vars instrumented traced)
776778 (cl-labels ((handle-plist
777779 (plist)
780+ ; ; Note that (memq 'function cider-font-lock-dynamically) and similar statements are evaluated differently
781+ ; ; for `core' - they're always truthy for `core' (see related core-handling code some lines below):
778782 (let ((do-function (memq 'function cider-font-lock-dynamically))
779783 (do-var (memq 'var cider-font-lock-dynamically))
780784 (do-macro (memq 'macro cider-font-lock-dynamically))
@@ -806,6 +810,7 @@ with the given LIMIT."
806810 (push sym functions))
807811 ((and do-var (not is-function) (not is-macro))
808812 (push sym vars)))))))))
813+ ; ; For core members, we override `cider-font-lock-dynamically' , since all core members should get the same treatment:
809814 (when (memq 'core cider-font-lock-dynamically)
810815 (let ((cider-font-lock-dynamically '(function var macro core deprecated)))
811816 (handle-plist core-plist)))
0 commit comments