Commit c7d7ed27 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(disabled-command-hook): Use eq to compare elts of this-command-keys.

parent ccc341de
......@@ -42,7 +42,7 @@
(let (char)
(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)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment