diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-02-12 02:58:48 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-02-12 02:58:48 +0000 |
commit | 1cb4bd1c01b1c38a487efecd899a5b860abf9c6e (patch) | |
tree | bd3e43dfda0d0e676af95eb143474235bca5e89a /lisp/novice.el | |
parent | ed3b512238cfbcfc54c618b5eeb2b3adc33ea93c (diff) | |
download | emacs-1cb4bd1c01b1c38a487efecd899a5b860abf9c6e.tar.gz |
(disabled-command-hook): Use eq to compare elts
of this-command-keys. Choose the appropriate kind of Meta.
Diffstat (limited to 'lisp/novice.el')
-rw-r--r-- | lisp/novice.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/novice.el b/lisp/novice.el index 922746d1c4c..2c61715cefd 100644 --- a/lisp/novice.el +++ b/lisp/novice.el @@ -42,7 +42,10 @@ (let (char) (save-window-excursion (with-output-to-temp-buffer "*Help*" - (if (eq (aref (this-command-keys) 0) ?\M-x) + (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))) |