Skip to content

Commit 12ac771

Browse files
committed
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 clojure-emacs/orchard#197 Fixes #3542
1 parent e650b60 commit 12ac771

File tree

1 file changed

+6
-3
lines changed

1 file changed

+6
-3
lines changed

cider-inspector.el

Lines changed: 6 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -456,9 +456,12 @@ MAX-COLL-SIZE if non nil."
456456
(cond ((symbolp el) (insert (symbol-name el)))
457457
((stringp el) (insert (if cider-inspector-looking-at-java-p
458458
(cider-font-lock-as 'java-mode el)
459-
(propertize el 'font-lock-face (if header-p
460-
'font-lock-comment-face
461-
'font-lock-keyword-face)))))
459+
(let ((trimmed-el (replace-regexp-in-string (regexp-quote "<non-inspectable value>")
460+
""
461+
el)))
462+
(propertize trimmed-el 'font-lock-face (if header-p
463+
'font-lock-comment-face
464+
'font-lock-keyword-face))))))
462465
((and (consp el) (eq (car el) :newline))
463466
(insert "\n"))
464467
((and (consp el) (eq (car el) :value))

0 commit comments

Comments
 (0)