# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 761021928 0
# Node ID c921af3939e88ac12f4900991709f6db5a22e647
# Parent  240d2ad5803c358837dd107a6ab907016a55318f
(disabled-command-hook): Use eq to compare elts
of this-command-keys.  Choose the appropriate kind of Meta.

diff -r 240d2ad5803c -r c921af3939e8 lisp/novice.el
--- a/lisp/novice.el	Sat Feb 12 02:39:53 1994 +0000
+++ b/lisp/novice.el	Sat Feb 12 02:58:48 1994 +0000
@@ -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)))