[elpa] externals/inspector bc118aa31a 65/93: Show length of lists

[ELPA Syncer]

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

    Show length of lists
---
 inspector.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/inspector.el b/inspector.el
index b8499241ae..49eef0c84a 100644
--- a/inspector.el
+++ b/inspector.el
@@ -294,6 +294,9 @@ If LABEL has a value, then it is used as button label.  
Otherwise, button label
    ((and inspector-use-specialized-inspectors-for-lists
          (inspector--plistp cons))
     (inspector--insert-title "Property list")
+    (inspector--insert-label "Length")
+    (insert (inspector--princ-to-string (length cons)))
+    (newline 2)
     (let ((plist (cl-copy-list cons)))
       (while plist
         (let ((key (pop plist)))
@@ -305,6 +308,10 @@ If LABEL has a value, then it is used as button label.  
Otherwise, button label
    ((and inspector-use-specialized-inspectors-for-lists
          (inspector--alistp cons))
     (inspector--insert-title "Association list")
+    (inspector--insert-label "Length")
+    (insert (inspector--princ-to-string (length cons)))
+    (newline 2)
+
     (let ((i 0))
       (inspector--do-with-slicer-and-more-button
        (lambda ()
@@ -322,6 +329,9 @@ If LABEL has a value, then it is used as button label.  
Otherwise, button label
            (newline))))))
    ((inspector--proper-list-p cons)
     (inspector--insert-title "Proper list")
+    (inspector--insert-label "Length")
+    (insert (inspector--princ-to-string (length cons)))
+    (newline 2)
     (let ((i 0)
           (j 0))
       (inspector--do-with-slicer-and-more-button