Mercurial > emacs
comparison lisp/novice.el @ 5862:0449645855c3
(disabled-command-hook): Use eq to compare elts of this-command-keys.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 09 Feb 1994 05:36:48 +0000 |
parents | 84cdd74ddbb0 |
children | c921af3939e8 |
comparison
equal
deleted
inserted
replaced
5861:882894a8c217 | 5862:0449645855c3 |
---|---|
40 ;;;###autoload | 40 ;;;###autoload |
41 (defun disabled-command-hook (&rest ignore) | 41 (defun disabled-command-hook (&rest ignore) |
42 (let (char) | 42 (let (char) |
43 (save-window-excursion | 43 (save-window-excursion |
44 (with-output-to-temp-buffer "*Help*" | 44 (with-output-to-temp-buffer "*Help*" |
45 (if (= (aref (this-command-keys) 0) ?\M-x) | 45 (if (eq (aref (this-command-keys) 0) ?\M-x) |
46 (princ "You have invoked the disabled command ") | 46 (princ "You have invoked the disabled command ") |
47 (princ "You have typed ") | 47 (princ "You have typed ") |
48 (princ (key-description (this-command-keys))) | 48 (princ (key-description (this-command-keys))) |
49 (princ ", invoking disabled command ")) | 49 (princ ", invoking disabled command ")) |
50 (princ this-command) | 50 (princ this-command) |