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