# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 721877493 0
# Node ID 5beb9d2bc959296e7cd1cf14e2ffe8825588f589
# Parent  e198e33a4c09b3c03e67aa1803e94781c8f2f6f2
	* 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.

diff -r e198e33a4c09 -r 5beb9d2bc959 lisp/electric.el
--- 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")