From: David Kastrup <dak@gnu.org>
Date: Sat, 26 Jun 2004 18:35:18 +0000 (+0000)
Subject: (perform-replace): Highlight the match even in
X-Git-Tag: ttn-vms-21-2-B4~5621
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cb05ca25df6d4dca3024b94731aaee12bfce4ad6;p=emacs.git

(perform-replace): Highlight the match even in
non-query mode if there is potential replace string editing.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bf7e4aa4e19..4bd9e5b7189 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/replace.el b/lisp/replace.el
index 0ae9f084846..c68a420db7a 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1328,7 +1328,11 @@ make, or the user didn't cancel the call."
 			     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