[elpa] externals/inspector d7f85a9c25 16/93: Inspect array

[ELPA Syncer]

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

    Inspect array
---
 inspector.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/inspector.el b/inspector.el
index dfafde5ef3..9b09cc4dea 100644
--- a/inspector.el
+++ b/inspector.el
@@ -147,7 +147,15 @@ If LABEL has a value, then it is used as button label.  
Otherwise, button label
   (prin1 string (current-buffer)))
 
 (cl-defmethod inspect-object ((array array))
-  (debug "Inspect array"))
+  (insert "Array:")
+  (newline)
+  (let ((length (length array)))
+    (insert (format "Length: %s" length))
+    (newline 2)
+    (dotimes (i length)
+      (insert (format "%d: " i))
+      (inspector--insert-inspect-button (aref array i))
+      (newline))))
 
 (cl-defmethod inspect-object ((sequence sequence))
   (debug "Inspect sequence"))