branch: externals/inspector
commit 182c1de70395e60d2be8d532edb80ea030a62ec6
Author: Mariano Montone <marianomont...@gmail.com>
Commit: Mariano Montone <marianomont...@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")
