# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 721878051 0
# Node ID 787f816e1f4b7a9bcb90a67ad853f96d0696cbc9
# Parent  6147d21643317a28def7a83394c39d241e98e7b4
	* 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.
	* replace.el (perform-replace): Same.

diff -r 6147d2164331 -r 787f816e1f4b lisp/replace.el
--- a/lisp/replace.el	Mon Nov 16 01:40:15 1992 +0000
+++ b/lisp/replace.el	Mon Nov 16 01:40:51 1992 +0000
@@ -443,7 +443,7 @@
 		(message "Query replacing %s with %s: " from-string next-replacement)
 		(setq char (read-event))
 		(if (and (numberp char) (= char ??))
-		    (setq unread-command-char help-char char help-char))))
+		    (setq unread-command-event help-char char help-char))))
 	    ;; Restore the match data while we process the command.
 	    (store-match-data real-match-data)
 	    (cond ((or (= char ?\e)
@@ -498,7 +498,7 @@
 		   (setq replaced t))
 		  (t
 		   (setq keep-going nil)
-		   (setq unread-command-char char)
+		   (setq unread-command-event char)
 		   (setq done t))))
 	  ;; Record previous position for ^ when we move on.
 	  ;; Change markers to numbers in the match data