diff options
| author | David Kastrup <dak@gnu.org> | 2004-06-26 18:35:18 +0000 |
|---|---|---|
| committer | David Kastrup <dak@gnu.org> | 2004-06-26 18:35:18 +0000 |
| commit | cb05ca25df6d4dca3024b94731aaee12bfce4ad6 (patch) | |
| tree | f97721b043c9e87b1982bc48a3ed2c67f26ba21e /lisp/replace.el | |
| parent | 15cc764cd1a590eccf9516effbe28df61c78a02a (diff) | |
| download | emacs-cb05ca25df6d4dca3024b94731aaee12bfce4ad6.tar.gz | |
(perform-replace): Highlight the match even in
non-query mode if there is potential replace string editing.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 6 |
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 |