Skip to content

Commit

Permalink
Inspector: don't render non-inspectable values
Browse files Browse the repository at this point in the history
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
  • Loading branch information
vemv committed Oct 24, 2023
1 parent c40fe19 commit c0fe190
Showing 1 changed file with 6 additions and 3 deletions.
9 changes: 6 additions & 3 deletions cider-inspector.el
Original file line number Diff line number Diff line change
Expand Up @@ -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))
Expand Down

0 comments on commit c0fe190

Please sign in to comment.