branch: elpa/cider
commit 12ac77144735d7535c68287e8dabb49d092f2798
Author: vemv <v...@users.noreply.github.com>
Commit: vemv <v...@users.noreply.github.com>
Inspector: don't render non-inspectable values
Those are conveyed by Orchard/cider-nrepl for representing values that
cannot be inspected (i.e. private, inaccessible fields).
See https://github.com/clojure-emacs/orchard/pull/197
Fixes https://github.com/clojure-emacs/cider/issues/3542
---
cider-inspector.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/cider-inspector.el b/cider-inspector.el
index ffe0b484dc..ef538faa6e 100644
--- a/cider-inspector.el
+++ b/cider-inspector.el
@@ -456,9 +456,12 @@ MAX-COLL-SIZE if non nil."
(cond ((symbolp el) (insert (symbol-name el)))
((stringp el) (insert (if cider-inspector-looking-at-java-p
(cider-font-lock-as 'java-mode el)
- (propertize el 'font-lock-face (if header-p
-
'font-lock-comment-face
-
'font-lock-keyword-face)))))
+ (let ((trimmed-el (replace-regexp-in-string
(regexp-quote "<non-inspectable value>")
+
""
+
el)))
+ (propertize trimmed-el 'font-lock-face (if
header-p
+
'font-lock-comment-face
+
'font-lock-keyword-face))))))
((and (consp el) (eq (car el) :newline))
(insert "\n"))
((and (consp el) (eq (car el) :value))
