(Electric-command-loop): Use eq to compare events.

diff --git a/lisp/electric.el b/lisp/electric.el
index d0aa6f8..39d690f 100644 (file)
--- a/lisp/electric.el
+++ b/lisp/electric.el
@@ -58,7 +58,7 @@
            this-command (key-binding cmd)
            cmd this-command)
       (if (or (prog1 quit-flag (setq quit-flag nil))
-             (= last-input-char ?\C-g))
+             (eq last-input-char ?\C-g))
          (progn (setq unread-command-events nil
                       prefix-arg nil)
                 ;; If it wasn't cancelling a prefix character, then quit.
@@ -74,7 +74,7 @@
              (progn (command-execute cmd)
                     (setq last-command this-command)
                     (if (or (prog1 quit-flag (setq quit-flag nil))
-                            (= last-input-char ?\C-g))
+                            (eq last-input-char ?\C-g))
                         (progn (setq unread-command-events nil)
                                (if (not inhibit-quit)
                                    (progn (ding)