(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 bf7e4aa4e1903cf0a7e71c459a00aa8535b4ee31..4bd9e5b718940de9449b443c075540c06ebf3fa6 100644 (file)
--- 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 0ae9f084846322904a72383aaaff48dde015ca90..c68a420db7a2ebc707c432ead254d5dfbe0565df 100644 (file)
--- 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