Mercurial > emacs

changeset 3439:13660e63d8f0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Electric-command-loop): Use eq to compare events.
author Richard M. Stallman <rms@gnu.org>
date Thu, 03 Jun 1993 03:48:37 +0000
parents 9c90be4edcc5
children bccf04c8a5b6
files lisp/electric.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/electric.el	Thu Jun 03 03:45:55 1993 +0000
+++ b/lisp/electric.el	Thu Jun 03 03:48:37 1993 +0000
@@ -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)