Mercurial > emacs

diff lisp/replace.el @ 56262:29d03615f533

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(perform-replace): Highlight the match even in non-query mode if there is potential replace string editing.
author David Kastrup <dak@gnu.org>
date Sat, 26 Jun 2004 18:35:18 +0000
parents 93e88c0fb51c
children 610a9a9c39d0
line wrap: on
line diff
--- 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