From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 12 Feb 1994 02:58:48 +0000 (+0000)
Subject: (disabled-command-hook): Use eq to compare elts
X-Git-Tag: emacs-19.34~9924
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=61563ba0c91f74b3cdbc84f6f555b96c613ab320;p=emacs.git

(disabled-command-hook): Use eq to compare elts
of this-command-keys.  Choose the appropriate kind of Meta.
---

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)))