Mercurial > emacs
changeset 64865:d080c39bbe58
(dired-do-query-replace-regexp): Use `query-replace-read-args'.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Tue, 09 Aug 2005 21:38:24 +0000 |
| parents | c474b6f22449 |
| children | 6f20cb2a3b72 |
| files | lisp/dired-aux.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired-aux.el Tue Aug 09 21:37:34 2005 +0000 +++ b/lisp/dired-aux.el Tue Aug 09 21:38:24 2005 +0000 @@ -2208,7 +2208,10 @@ If you exit (\\[keyboard-quit], RET or q), you can resume the query replace with the command \\[tags-loop-continue]." (interactive - "sQuery replace in marked files (regexp): \nsQuery replace %s by: \nP") + (let ((common + (query-replace-read-args + "Query replace regexp in marked files" t t))) + (list (nth 0 common) (nth 1 common) (nth 2 common)))) (dolist (file (dired-get-marked-files nil nil 'dired-nondirectory-p)) (let ((buffer (get-file-buffer file))) (if (and buffer (with-current-buffer buffer