branch: externals/inspector
commit 55a4df0b4534085f3056f1fa1f5c8618477db0b7
Author: Mariano Montone <marianomont...@gmail.com>
Commit: Mariano Montone <marianomont...@gmail.com>
debugger-inspect-locals
---
inspector.el | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/inspector.el b/inspector.el
index 687d351c78..d941b040bc 100644
--- a/inspector.el
+++ b/inspector.el
@@ -207,6 +207,14 @@ When ADD-TO-HISTORY is T, OBJECT is added to inspector
history for navigation pu
(let ((result (eval (eval-sexp-add-defvars (elisp--preceding-sexp))
lexical-binding)))
(inspector-inspect result)))
+(defun debugger-inspect-locals ()
+ "Inspect local variables of the frame at point in debugger backtrace."
+ (interactive)
+ (let* ((nframe (1+ (debugger-frame-number 'skip-base)))
+ (base (debugger--backtrace-base))
+ (locals (backtrace--locals nframe base)))
+ (inspector-inspect locals)))
+
(defgroup inspector nil
"Emacs Lisp inspector customizations."
:group 'lisp)
