diff options
| author | Richard M. Stallman | 1994-02-09 05:36:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-02-09 05:36:48 +0000 |
| commit | c7d7ed2771c270d51951ff97f2655abdb2aed932 (patch) | |
| tree | eec2b7318fc79a2329e6b66c520ce3f7960e9c37 | |
| parent | ccc341de409bf899e9696246ed1fa8a746f3e4ee (diff) | |
| download | emacs-c7d7ed2771c270d51951ff97f2655abdb2aed932.tar.gz emacs-c7d7ed2771c270d51951ff97f2655abdb2aed932.zip | |
(disabled-command-hook): Use eq to compare elts of this-command-keys.
| -rw-r--r-- | lisp/novice.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/novice.el b/lisp/novice.el index 972d0737649..922746d1c4c 100644 --- a/lisp/novice.el +++ b/lisp/novice.el | |||
| @@ -42,7 +42,7 @@ | |||
| 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))) |