* 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.

1 files changed, 2 insertions, 2 deletions

diff --git a/lisp/electric.el b/lisp/electric.el
index a3626a007e5..acc002abaac 100644
--- a/lisp/electric.el
+++ b/lisp/electric.el
@@ -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")