changeset 5862:0449645855c3

(disabled-command-hook): Use eq to compare elts of this-command-keys.
author Richard M. Stallman <rms@gnu.org>
date Wed, 09 Feb 1994 05:36:48 +0000
parents 882894a8c217
children 2c5240294c30
files lisp/novice.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/novice.el	Wed Feb 09 04:26:28 1994 +0000
+++ b/lisp/novice.el	Wed Feb 09 05:36:48 1994 +0000
@@ -42,7 +42,7 @@
   (let (char)
     (save-window-excursion
      (with-output-to-temp-buffer "*Help*"
-       (if (= (aref (this-command-keys) 0) ?\M-x)
+       (if (eq (aref (this-command-keys) 0) ?\M-x)
 	   (princ "You have invoked the disabled command ")
 	 (princ "You have typed ")
 	 (princ (key-description (this-command-keys)))