@@ -621,7 +621,9 @@ that should be font-locked:
621
621
`var' : Any non-local var gets the `font-lock-variable-name-face' .
622
622
`deprecated' (default): Any deprecated var gets the `cider-deprecated-face'
623
623
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.
625
627
626
628
The value can also be t, which means to font-lock as much as possible."
627
629
:type '(choice (set :tag " Fine-tune font-locking"
@@ -775,6 +777,8 @@ with the given LIMIT."
775
777
macros functions vars instrumented traced)
776
778
(cl-labels ((handle-plist
777
779
(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):
778
782
(let ((do-function (memq 'function cider-font-lock-dynamically))
779
783
(do-var (memq 'var cider-font-lock-dynamically))
780
784
(do-macro (memq 'macro cider-font-lock-dynamically))
@@ -806,6 +810,7 @@ with the given LIMIT."
806
810
(push sym functions))
807
811
((and do-var (not is-function) (not is-macro))
808
812
(push sym vars)))))))))
813
+ ; ; For core members, we override `cider-font-lock-dynamically' , since all core members should get the same treatment:
809
814
(when (memq 'core cider-font-lock-dynamically)
810
815
(let ((cider-font-lock-dynamically '(function var macro core deprecated)))
811
816
(handle-plist core-plist)))
0 commit comments