Mercurial > emacs

changeset 1609:5beb9d2bc959

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* bytecomp.el: Declare unread-command-char an obsolete variable. * vip.el (vip-escape-to-emacs, vip-prefix-arg-value, vip-prefix-arg-com): Use unread-command-event instead of unread-command-char; respect its new semantics. * electric.el (Electric-command-loop): Same.
author Jim Blandy <jimb@redhat.com>
date Mon, 16 Nov 1992 01:31:33 +0000
parents e198e33a4c09
children fc2b0405bd87
files lisp/electric.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/electric.el	Mon Nov 16 01:30:45 1992 +0000
+++ b/lisp/electric.el	Mon Nov 16 01:31:33 1992 +0000
@@ -85,7 +85,7 @@
 	    cmd this-command)
       (if (or (prog1 quit-flag (setq quit-flag nil))
 	      (= last-input-char ?\C-g))
-	  (progn (setq unread-command-char -1
+	  (progn (setq unread-command-event nil
 		       prefix-arg nil)
 		 ;; If it wasn't cancelling a prefix character, then quit.
 		 (if (or (= (length (this-command-keys)) 1)
@@ -101,7 +101,7 @@
 		     (setq last-command this-command)
 		     (if (or (prog1 quit-flag (setq quit-flag nil))
 			     (= last-input-char ?\C-g))
-			 (progn (setq unread-command-char -1)
+			 (progn (setq unread-command-event nil)
 				(if (not inhibit-quit)
 				    (progn (ding)
 					   (message "Quit")