(while): Comment out converter.

[gnu-emacs] / lisp / electric.el

diff --git a/lisp/electric.el b/lisp/electric.el
index d0aa6f81dfcd6fb9ad43b7fe0e1e852d1266f059..39d690f5ff9a9e78e893e0fd80b9941b1db976ef 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)