[elpa] externals/inspector 1e11bb1336 30/93: Evaluate expression with currently inspected object as context

[ELPA Syncer]

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

    Evaluate expression with currently inspected object as context
---
 inspector.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/inspector.el b/inspector.el
index 8ff404de22..60a183ce09 100644
--- a/inspector.el
+++ b/inspector.el
@@ -256,7 +256,8 @@ If LABEL has a value, then it is used as button label.  
Otherwise, button label
     (with-current-buffer buffer
       (inspector-mode)
       (setq buffer-read-only nil)
-      (erase-buffer))
+      (erase-buffer)
+      (make-local-variable '*))
     buffer))
 
 (defun inspect-expression (exp)
@@ -273,6 +274,7 @@ When ADD-TO-HISTORY is T, OBJECT is added to inspector 
history for navigation pu
       (when add-to-history
         (push inspector-inspected-object inspector-history))
       (setq inspector-inspected-object object)
+      (setq * object)
       (inspect-object object)
       (setq buffer-read-only t)
       (display-buffer buffer))))
@@ -320,6 +322,7 @@ When ADD-TO-HISTORY is T, OBJECT is added to inspector 
history for navigation pu
   (let ((map (make-keymap)))
     (define-key map (kbd "q") 'inspector-quit)
     (define-key map (kbd "l") 'inspector-pop)
+    (define-key map (kbd "e") 'eval-expression)
     map))
 
 (easy-menu-define