[elpa] externals/inspector 9c84011dd3 2/2: Inspect as proper list functions for plist and alists

[ELPA Syncer]

branch: externals/inspector
commit 9c84011dd3b88de20b7141a2d89fb73f22c5198e
Author: Mariano Montone <marianomontone@gmail.com>
Commit: Mariano Montone <marianomontone@gmail.com>

    Inspect as proper list functions for plist and alists
---
 inspector.el | 26 ++++++++++++++++++++++++--
 1 file changed, 24 insertions(+), 2 deletions(-)

diff --git a/inspector.el b/inspector.el
index 85e5a673ed..fbd226bbd4 100644
--- a/inspector.el
+++ b/inspector.el
@@ -422,7 +422,18 @@ is expected to be used.")
   (cond
    ((and inspector-use-specialized-inspectors-for-lists
          (funcall inspector-plist-detection-function cons))
-    (inspector--insert-title "property list")
+    (insert (propertize "property list" 'face 'inspector-title-face))
+    (insert " ")
+    (insert-button "[as proper list]"
+                   'action (lambda (_btn)
+                             (let 
((inspector-use-specialized-inspectors-for-lists nil))
+                               (setf buffer-read-only nil
+                                     (buffer-string) "")
+                               (inspector-inspect-object cons)))
+                   'follow-link t)
+    (newline)
+    (inspector--insert-horizontal-line)
+    (newline)
     (inspector--insert-label "length")
     (insert (inspector--princ-to-string (length cons)))
     (newline 2)
@@ -436,7 +447,18 @@ is expected to be used.")
         (newline))))
    ((and inspector-use-specialized-inspectors-for-lists
          (funcall inspector-alist-detection-function cons))
-    (inspector--insert-title "association list")
+    (insert (propertize "association list" 'face 'inspector-title-face))
+    (insert " ")
+    (insert-button "[as proper list]"
+                   'action (lambda (_btn)
+                             (let 
((inspector-use-specialized-inspectors-for-lists nil))
+                               (setf buffer-read-only nil
+                                     (buffer-string) "")
+                               (inspector-inspect-object cons)))
+                   'follow-link t)
+    (newline)
+    (inspector--insert-horizontal-line)
+    (newline)
     (inspector--insert-label "length")
     (insert (inspector--princ-to-string (length cons)))
     (newline 2)