* 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 --git a/lisp/replace.el b/lisp/replace.el
index beee0df738ab8f04fdac50ca4ebcdbeb58156ab2..453267144697b81c26edb1c2f4ba1bd0a684c1cc 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -443,7 +443,7 @@ which will run faster and do exactly what you probably want."
                (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 @@ which will run faster and do exactly what you probably want."
                   (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