(perform-replace): Highlight the match even in

non-query mode if there is potential replace string editing.

1 files changed, 5 insertions, 1 deletions

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