* 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.
	* ebuff-menu.el (electric-buffer-list, Electric-buffer-menu-exit):
	Same.

1 files changed, 3 insertions, 3 deletions

diff --git a/lisp/ebuff-menu.el b/lisp/ebuff-menu.el
index bc05ade43bf..d39b819a1de 100644
--- a/lisp/ebuff-menu.el
+++ b/lisp/ebuff-menu.el
@@ -63,8 +63,8 @@ Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil.
             (setq select
                   (catch 'electric-buffer-menu-select
                     (message "<<< Press Space to bury the buffer list >>>")
-                    (if (= (setq unread-command-char (read-char)) ?\ )
-                        (progn (setq unread-command-char -1)
+                    (if (= (setq unread-command-event (read-char)) ?\ )
+                        (progn (setq unread-command-event nil)
                                (throw 'electric-buffer-menu-select nil)))
                     (let ((first (progn (goto-char (point-min))
                                         (forward-line 2)
@@ -196,7 +196,7 @@ electric-buffer-menu-mode-hook if it is non-nil."
  
 (defun Electric-buffer-menu-exit ()
   (interactive)
-  (setq unread-command-char last-input-char)
+  (setq unread-command-event last-input-char)
   ;; for robustness
   (condition-case ()
       (throw 'electric-buffer-menu-select nil)