diff --git a/command-functions.lisp b/command-functions.lisp index 8449b10..3254a07 100644 --- a/command-functions.lisp +++ b/command-functions.lisp @@ -356,6 +356,11 @@ (with-output-to-string (s) (describe (read-from-string (editor-word editor)) s)))) +(defun inspect-word (chord editor) + (declare (ignore chord)) + (without-backend editor + (inspect (read-from-string (editor-word editor))))) + (defun toggle-insert (chord editor) (declare (ignore chord)) (setf (editor-insert-mode editor) (not (editor-insert-mode editor)))) diff --git a/command-keys.lisp b/command-keys.lisp index d53dc1c..ab5d3b2 100644 --- a/command-keys.lisp +++ b/command-keys.lisp @@ -61,7 +61,7 @@ (defcommand "M-G") (defcommand "M-H" 'help) (defcommand "M-I" 'describe-word) -(defcommand "M-J") +(defcommand "M-J" 'inspect-word) (defcommand "M-K") (defcommand "M-L" 'downcase-word) (defcommand "M-M")