[elpa] externals/inspector 55a4df0b45 12/93: debugger-inspect-locals

[ELPA Syncer]

branch: externals/inspector
commit 55a4df0b4534085f3056f1fa1f5c8618477db0b7
Author: Mariano Montone <marianomontone@gmail.com>
Commit: Mariano Montone <marianomontone@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)