Commit b351399a authored by Jim Blandy's avatar Jim Blandy
Browse files

* 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):
parent d28a1925
......@@ -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 ()
(setq unread-command-char last-input-char)
(setq unread-command-event last-input-char)
;; for robustness
(condition-case ()
(throw 'electric-buffer-menu-select nil)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment