mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-26 00:01:47 -07:00
Code Issues Projects Releases Wiki Activity

(perform-replace): Pass new args to replace-highlight.

Browse source 
(replace-highlight): Take region args,
and pass them to isearch-lazy-highlight-new-loop.
This commit is contained in:
Richard M. Stallman 2005-02-16 09:49:45 +00:00
parent 52e3545b1c
commit d532160fb0
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/replace.el
View file

@ -1435,7 +1435,8 @@ make, or the user didn't cancel the call."
query-replace-skip-read-only))
(unless (or literal noedit)
(replace-highlight (nth 0 real-match-data)
(nth 1 real-match-data)))
(nth 1 real-match-data)
start end))
(setq noedit
(replace-match-maybe-edit
next-replacement nocasify literal
@ -1451,7 +1452,8 @@ make, or the user didn't cancel the call."
;; `real-match-data'.
(while (not done)
(set-match-data real-match-data)
(replace-highlight (match-beginning 0) (match-end 0))
(replace-highlight (match-beginning 0) (match-end 0)
start end)
;; Bind message-log-max so we don't fill up the message log
;; with a bunch of identical messages.
(let ((message-log-max nil))
@ -1627,15 +1629,15 @@ make, or the user didn't cancel the call."
(defvar replace-overlay nil)
(defun replace-highlight (beg end)
(defun replace-highlight (match-beg match-end range-beg range-end)
(if query-replace-highlight
(if replace-overlay
(move-overlay replace-overlay beg end (current-buffer))
(setq replace-overlay (make-overlay beg end))
(move-overlay replace-overlay match-beg match-end (current-buffer))
(setq replace-overlay (make-overlay match-beg match-end))
(overlay-put replace-overlay 'priority 1) ;higher than lazy overlays
(overlay-put replace-overlay 'face 'query-replace)))
(if query-replace-lazy-highlight
(isearch-lazy-highlight-new-loop)))
(when query-replace-lazy-highlight
(isearch-lazy-highlight-new-loop range-beg range-end)))
(defun replace-dehighlight ()
(when replace-overlay