mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Don't highlight matches in dired query-replace commands

Browse source 
* lisp/dired-aux.el (dired-do-query-replace-regexp)
(dired-do-replace-regexp-as-diff)
(dired-do-find-regexp-and-replace): Turn off lazy highlighting
when reading the regexp from the user to avoid highlighting
regexp matches in the dired buffer. (bug#72147)
This commit is contained in:
Visuwesh 2024-07-17 09:11:04 +05:30 • committed by Juri Linkov
parent 1519c758a5
commit cc6324d9dc
1 changed files with 10 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/dired-aux.el
View file

@ -3801,9 +3801,10 @@ Third arg DELIMITED (prefix arg) means replace only word-delimited matches.
If you exit the query-replace loop (\\[keyboard-quit], RET or q), you can
resume the query replace with the command \\[fileloop-continue]."
(interactive
(let ((common
(query-replace-read-args
"Query replace regexp in marked files" t t)))
(let* ((query-replace-lazy-highlight)
(common
(query-replace-read-args
"Query replace regexp in marked files" t t)))
(list (nth 0 common) (nth 1 common) (nth 2 common)))
dired-mode)
(dolist (file (dired-get-marked-files nil nil #'dired-nondirectory-p nil t))
@ -3825,9 +3826,10 @@ Third arg DELIMITED (prefix arg) means replace only word-delimited matches.
The replacements are displayed in the buffer *replace-diff* that
you can later apply as a patch after reviewing the changes."
(interactive
(let ((common
(query-replace-read-args
"Replace regexp as diff in marked files" t t)))
(let* ((query-replace-lazy-highlight)
(common
(query-replace-read-args
"Replace regexp as diff in marked files" t t)))
(list (nth 0 common) (nth 1 common) (nth 2 common))))
(dired-post-do-command)
(multi-file-replace-regexp-as-diff
@ -3901,7 +3903,8 @@ REGEXP should use constructs supported by your local `grep' command.
Also see `query-replace' for user options that affect how this
function works."
(interactive
(let ((common
(let* ((query-replace-lazy-highlight)
(common
(query-replace-read-args
"Query replace regexp in marked files" t t)))
(list (nth 0 common) (nth 1 common)))