[elpa] externals/inspector 3ccaee246c 13/93: Better debugger-inspect-locals

[ELPA Syncer]

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

    Better debugger-inspect-locals
---
 inspector.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/inspector.el b/inspector.el
index d941b040bc..9d25436e00 100644
--- a/inspector.el
+++ b/inspector.el
@@ -29,6 +29,14 @@
                 (symbolp (car x))))
          list))
 
+(defun alist-to-plist (alist)
+  "Convert association list ALIST to a property list."
+  (let ((plist))
+    (dolist (cons (reverse alist))
+      (push (cdr cons) plist)
+      (push (car cons) plist))
+    plist))
+
 (defun inspector--proper-list-p (val)
   "Is VAL a proper list?"
   (if (fboundp 'format-proper-list-p)
@@ -213,7 +221,7 @@ When ADD-TO-HISTORY is T, OBJECT is added to inspector 
history for navigation pu
   (let* ((nframe (1+ (debugger-frame-number 'skip-base)))
         (base (debugger--backtrace-base))
         (locals (backtrace--locals nframe base)))
-    (inspector-inspect locals)))
+    (inspector-inspect (alist-to-plist locals))))
 
 (defgroup inspector nil
   "Emacs Lisp inspector customizations."