[elpa] externals/inspector 182c1de703 46/93: Inspect record types

[ELPA Syncer]

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

    Inspect record types
---
 inspector.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/inspector.el b/inspector.el
index c1f2417b2e..1cd94dd164 100644
--- a/inspector.el
+++ b/inspector.el
@@ -236,6 +236,15 @@ If LABEL has a value, then it is used as button label.  
Otherwise, button label
       (inspector--insert-inspect-button
        (cl-struct-slot-value (type-of object) (car slot) object))
       (newline)))
+   ((recordp object)
+    (inspector--insert-title (format "%s record" (type-of object)))
+    (inspector--insert-label "Members")
+    (newline)
+    (cl-do ((i 1 (cl-incf i)))
+        ((= i (length object)))
+      (inspector--insert-inspect-button
+       (aref object i))
+      (newline)))
    ((functionp object)
     (inspector--insert-title "Function")
     (inspector--insert-label "Name")