[nongnu] elpa/cider 12ac771447 3/4: Inspector: don't render non-inspectable values

[ELPA Syncer]

branch: elpa/cider
commit 12ac77144735d7535c68287e8dabb49d092f2798
Author: vemv <vemv@users.noreply.github.com>
Commit: vemv <vemv@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))