diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2016-02-13 22:16:15 +0000 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2016-02-13 22:21:34 +0000 |
| commit | 8f5bb3947122db2eb64e8a85b146884cb898e885 (patch) | |
| tree | 682486c01b126136acc21b94fc601fc078036473 /cider-mode.el | |
| parent | bfa34f34b770485b55bb04765d7f77b2a90dd7ca (diff) | |
Fix traced var font-locking
Diffstat (limited to 'cider-mode.el')
| -rw-r--r-- | cider-mode.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/cider-mode.el b/cider-mode.el index 9210ac79..f4c14bed 100644 --- a/cider-mode.el +++ b/cider-mode.el @@ -377,8 +377,12 @@ The value can also be t, which means to font-lock as much as possible." (push sym instrumented)) (`"#'cider.nrepl.middleware.enlighten/light-form" (push sym enlightened))) - (when (or (nrepl-dict-get meta "clojure.tools.trace/traced") - (nrepl-dict-get meta "cider.inlined-deps.clojure.tools.trace/traced")) + ;; The ::traced keywords can be inlined by MrAnderson, so + ;; we catch that case too. + ;; FIXME: This matches values too, not just keys. + (when (seq-find (lambda (k) (and (stringp k) + (string-match (rx "clojure.tools.trace/traced" eos) k))) + meta) (push sym traced)) (when (and do-deprecated (nrepl-dict-get meta "deprecated")) (push sym deprecated)) |