# HG changeset patch
# User David Kastrup <dak@gnu.org>
# Date 1088274918 0
# Node ID 29d03615f533966a51a268b39f154636edcaadee
# Parent  d863bc8309076dd0dad9c416bc9cb17b413f7f6e
(perform-replace): Highlight the match even in
non-query mode if there is potential replace string editing.

diff -r d863bc830907 -r 29d03615f533 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Jun 26 15:28:33 2004 +0000
+++ b/lisp/ChangeLog	Sat Jun 26 18:35:18 2004 +0000
@@ -1,3 +1,8 @@
+2004-06-26  David Kastrup  <dak@gnu.org>
+
+	* replace.el (perform-replace): Highlight the match even in
+	non-query mode if there is potential replace string editing.
+
 2004-06-26  Kai Grossjohann  <kai.grossjohann@gmx.net>
 
 	* net/tramp.el (tramp-handle-file-remote-p): New implementation to
diff -r d863bc830907 -r 29d03615f533 lisp/replace.el
--- a/lisp/replace.el	Sat Jun 26 15:28:33 2004 +0000
+++ b/lisp/replace.el	Sat Jun 26 18:35:18 2004 +0000
@@ -1328,7 +1328,11 @@
 			     replace-count)
 		    noedit nil))
 	    (if (not query-flag)
-		(let ((inhibit-read-only query-replace-skip-read-only))
+		(let ((inhibit-read-only
+		       query-replace-skip-read-only))
+		  (unless noedit
+		    (replace-highlight (nth 0 real-match-data)
+				       (nth 1 real-match-data)))
 		  (setq noedit
 			(replace-match-maybe-edit
 			 next-replacement nocasify literal