Commit eec38fab 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.
	* sun-mouse.el (mouse-second-hit): Same.
parent d77c36e8
......@@ -318,12 +318,12 @@ but that uses minibuffer, and mucks up last-command."
(let ((pc1 (read-char)))
(if (or (not (equal pc1 mouse-prefix1))
(sit-for-millisecs 3)) ; a mouse prefix will have second char
(progn (setq unread-command-char pc1) ; Can get away with one unread.
(progn (setq unread-command-event pc1) ; Can get away with one unread.
nil) ; Next input not mouse event.
(let ((pc2 (read-char)))
(if (not (equal pc2 mouse-prefix2))
(progn (setq unread-command-char pc1) ; put back the ^X
;;; Too bad can't do two: (setq unread-command-char (list pc1 pc2))
(progn (setq unread-command-event pc1) ; put back the ^X
;;; Too bad can't do two: (setq unread-command-event (list pc1 pc2))
(ding) ; user will have to retype that pc2.
nil) ; This input is not a mouse event.
;; Next input has mouse prefix and is within time limit.
......
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