mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Karl Heuer 1995-02-08 04:04:45 +00:00
parent 9f5787aee4
commit be29d45333
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/novice.el
View File

@ -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.