[Emacs-diffs] Changes to emacs/lisp/dired-aux.el

[Juri Linkov]

Index: emacs/lisp/dired-aux.el
diff -c emacs/lisp/dired-aux.el:1.136 emacs/lisp/dired-aux.el:1.137
*** emacs/lisp/dired-aux.el:1.136       Sat Aug  6 22:13:42 2005
--- emacs/lisp/dired-aux.el     Tue Aug  9 21:38:24 2005
***************
*** 2208,2214 ****
  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")
    (dolist (file (dired-get-marked-files nil nil 'dired-nondirectory-p))
      (let ((buffer (get-file-buffer file)))
        (if (and buffer (with-current-buffer buffer
--- 2208,2217 ----
  If you exit (\\[keyboard-quit], RET or q), you can resume the query replace
  with the command \\[tags-loop-continue]."
    (interactive
!    (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