[elpa] externals/inspector d5d286c5de 10/93: inspect-last-sexp command

[ELPA Syncer]

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

    inspect-last-sexp command
---
 inspector.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/inspector.el b/inspector.el
index 15282762d1..cde232655b 100644
--- a/inspector.el
+++ b/inspector.el
@@ -183,6 +183,12 @@ When ADD-TO-HISTORY is T, OBJECT is added to inspector 
history for navigation pu
     (let ((object (pop inspector-history)))
       (inspector-inspect object))))
 
+(defun inspect-last-sexp ()
+  "Evaluate and inspect sexp before point."
+  (interactive)
+  (let ((result (eval (eval-sexp-add-defvars (elisp--preceding-sexp)) 
lexical-binding)))
+    (inspector-inspect result)))
+
 (defgroup inspector nil
   "Emacs Lisp inspector customizations."
   :group 'lisp)