From: Juri Linkov <juri@jurta.org>
Date: Tue, 9 Aug 2005 21:38:24 +0000 (+0000)
Subject: (dired-do-query-replace-regexp): Use `query-replace-read-args'.
X-Git-Tag: emacs-pretest-22.0.90~7674
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0751a7049a4a913cda0a3d0b005ff362578a2001;p=emacs.git

(dired-do-query-replace-regexp): Use `query-replace-read-args'.
---

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 9bcb04ef27b..0d3f6fe125b 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -2208,7 +2208,10 @@ Third arg DELIMITED (prefix arg) means replace only word-delimited matches.
 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