Mercurial > emacs
changeset 5927:c921af3939e8
(disabled-command-hook): Use eq to compare elts
of this-command-keys. Choose the appropriate kind of Meta.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 12 Feb 1994 02:58:48 +0000 |
| parents | 240d2ad5803c |
| children | 0a2c25c9400c |
| files | lisp/novice.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/novice.el Sat Feb 12 02:39:53 1994 +0000 +++ b/lisp/novice.el Sat Feb 12 02:58:48 1994 +0000 @@ -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)))