From 61563ba0c91f74b3cdbc84f6f555b96c613ab320 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 12 Feb 1994 02:58:48 +0000 Subject: [PATCH] (disabled-command-hook): Use eq to compare elts of this-command-keys. Choose the appropriate kind of Meta. --- lisp/novice.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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))) -- 2.39.5