# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 721877387 0
# Node ID c154322a854654fe9e8a7520b9871f4b50833c62
# Parent  4303c30b29de4cd656462b8acee978199a204a21
	* 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.

diff -r 4303c30b29de -r c154322a8546 lisp/ebuff-menu.el
--- a/lisp/ebuff-menu.el	Mon Nov 16 01:28:48 1992 +0000
+++ b/lisp/ebuff-menu.el	Mon Nov 16 01:29:47 1992 +0000
@@ -63,8 +63,8 @@
 	    (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 @@
  
 (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)