branch: elpa/cider
commit 8888391e4d4aa632f2d4f3cf7c7d3324d2fbb795
Author: Oleksandr Yakushev <a...@bytopia.org>
Commit: Oleksandr Yakushev <a...@bytopia.org>

    [track-state] Tune recognized meta keys
---
 cider-mode.el                                   | 10 +++-------
 doc/modules/ROOT/pages/debugging/profiling.adoc |  3 +--
 2 files changed, 4 insertions(+), 9 deletions(-)

diff --git a/cider-mode.el b/cider-mode.el
index 7106e49181..7a7d642adb 100644
--- a/cider-mode.el
+++ b/cider-mode.el
@@ -806,17 +806,13 @@ with the given LIMIT."
                          (`"\"light-form\""
                           (push sym enlightened)))
                        ;; FIXME: This matches values too, not just keys.
-                       (when (seq-find (lambda (k)
-                                         (and (stringp k)
-                                              (or (string= 
"orchard.trace/traced" k)
-                                                  (string= 
"orchard.profile/profiled" k))))
-                                       meta)
+                       (when (or (nrepl-dict-get meta "orchard.trace/traced")
+                                 (nrepl-dict-get meta 
"orchard.profile/profiled"))
                          (push sym traced))
                        (when (and do-deprecated (nrepl-dict-get meta 
"deprecated"))
                          (push sym deprecated))
                        (let ((is-macro (nrepl-dict-get meta "macro"))
-                             (is-function (or (nrepl-dict-get meta "fn")
-                                              (nrepl-dict-get meta 
"arglists"))))
+                             (is-function (nrepl-dict-get meta "fn")))
                          (cond ((and do-macro is-macro)
                                 (push sym macros))
                                ((and do-function is-function)
diff --git a/doc/modules/ROOT/pages/debugging/profiling.adoc 
b/doc/modules/ROOT/pages/debugging/profiling.adoc
index 7396ef5d34..d7c20a380e 100644
--- a/doc/modules/ROOT/pages/debugging/profiling.adoc
+++ b/doc/modules/ROOT/pages/debugging/profiling.adoc
@@ -2,8 +2,7 @@
 
 CIDER has a simple built-in profiler that can you to quickly measure the 
running
 time of individual functions. It is similar to wrapping your functions with
-`time` macro, except it records every timing and displays a the summarized
-result.
+`time` macro, except it records every timing and displays a summarized result.
 
 NOTE: Profiling is different from benchmarking. Benchmarking more accurately
 tells you how long the code executes. If you need accurate timing results, use 
a

Reply via email to