# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 721878215 0
# Node ID bdd72dc49c66b4ca974380e6f950e682bb16bf9c
# Parent  dd7b72d023adca307f02abb195cdab2ebe0b0e5e
	* 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.

diff -r dd7b72d023ad -r bdd72dc49c66 lisp/term/sun-mouse.el
--- a/lisp/term/sun-mouse.el	Mon Nov 16 01:43:07 1992 +0000
+++ b/lisp/term/sun-mouse.el	Mon Nov 16 01:43:35 1992 +0000
@@ -318,12 +318,12 @@
     (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.