mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

* bytecomp.el: Declare unread-command-char an obsolete variable.

Browse source 
* 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.
This commit is contained in:
Jim Blandy 1992-11-16 01:40:51 +00:00
parent 08ce70d1ab
commit f4c7ad34be
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/replace.el
View file

@ -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