[elpa] externals/inspector b4ff75dda1 61/93: Paginate hash-table inspection

[ELPA Syncer]

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

    Paginate hash-table inspection
---
 inspector.el | 20 ++++++++++++++------
 1 file changed, 14 insertions(+), 6 deletions(-)

diff --git a/inspector.el b/inspector.el
index 6c7200d025..f5be9afb62 100644
--- a/inspector.el
+++ b/inspector.el
@@ -458,12 +458,20 @@ If LABEL has a value, then it is used as button label.  
Otherwise, button label
     (progn
       (inspector--insert-label "Values")
       (newline)
-      (maphash (lambda (key value)
-                 (inspector--insert-inspect-button key)
-                 (insert ": ")
-                 (inspector--insert-inspect-button value)
-                 (newline))
-               hash-table))))
+      (let ((i 0)
+            (keys (hash-table-keys hash-table)))
+        (inspector--do-with-slicer-and-more-button
+         (lambda ()
+           (when (< i (length keys))
+             (cl-subseq keys i (min (cl-incf i inspector-slice-size)
+                                    (length keys)))))
+         (lambda (slice cont)
+           (ignore cont)
+           (dolist (key slice)
+             (inspector--insert-inspect-button key)
+             (insert ": ")
+             (inspector--insert-inspect-button (gethash key hash-table))
+             (newline))))))))
 
 ;;--- Buffers ------------------------------