diff options
| -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 @@ | |||
| 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 (eq (aref (this-command-keys) 0) ?\M-x) | 45 | (if (eq (aref (this-command-keys) 0) |
| 46 | (if (stringp (this-command-keys)) | ||
| 47 | (aref "\M-x" 0) | ||
| 48 | ?\M-x)) | ||
| 46 | (princ "You have invoked the disabled command ") | 49 | (princ "You have invoked the disabled command ") |
| 47 | (princ "You have typed ") | 50 | (princ "You have typed ") |
| 48 | (princ (key-description (this-command-keys))) | 51 | (princ (key-description (this-command-keys))) |