# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1108547385 0
# Node ID aa148fbcec2e6efd46c9e576761cdec06d084795
# Parent  3fbab2787d99774c861d18e7d0ba5083a4290e87
(perform-replace): Pass new args to replace-highlight.
(replace-highlight): Take region args,
and pass them to isearch-lazy-highlight-new-loop.

diff -r 3fbab2787d99 -r aa148fbcec2e lisp/replace.el
--- a/lisp/replace.el	Wed Feb 16 09:48:29 2005 +0000
+++ b/lisp/replace.el	Wed Feb 16 09:49:45 2005 +0000
@@ -1435,7 +1435,8 @@
 		       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 @@
 		;; `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 @@
 
 (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