Commit be29d453 authored by Karl Heuer's avatar Karl Heuer
Browse files

(disabled-command-hook): Recognize ESC x as well as M-x.

parent 9f5787ae
......@@ -42,14 +42,18 @@
(let (char)
(save-window-excursion
(with-output-to-temp-buffer "*Help*"
(if (eq (aref (this-command-keys) 0)
(if (stringp (this-command-keys))
(aref "\M-x" 0)
?\M-x))
(princ "You have invoked the disabled command ")
(princ "You have typed ")
(princ (key-description (this-command-keys)))
(princ ", invoking disabled command "))
(let ((keys (this-command-keys)))
(if (or (eq (aref keys 0)
(if (stringp keys)
(aref "\M-x" 0)
?\M-x))
(and (>= (length keys) 2)
(eq (aref keys 0) meta-prefix-char)
(eq (aref keys 1) ?x)))
(princ "You have invoked the disabled command ")
(princ "You have typed ")
(princ (key-description keys))
(princ ", invoking disabled command ")))
(princ this-command)
(princ ":\n")
;; Print any special message saying why the command is disabled.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment