2208 |
If you exit (\\[keyboard-quit], RET or q), you can resume the query replace |
If you exit (\\[keyboard-quit], RET or q), you can resume the query replace |
2209 |
with the command \\[tags-loop-continue]." |
with the command \\[tags-loop-continue]." |
2210 |
(interactive |
(interactive |
2211 |
"sQuery replace in marked files (regexp): \nsQuery replace %s by: \nP") |
(let ((common |
2212 |
|
(query-replace-read-args |
2213 |
|
"Query replace regexp in marked files" t t))) |
2214 |
|
(list (nth 0 common) (nth 1 common) (nth 2 common)))) |
2215 |
(dolist (file (dired-get-marked-files nil nil 'dired-nondirectory-p)) |
(dolist (file (dired-get-marked-files nil nil 'dired-nondirectory-p)) |
2216 |
(let ((buffer (get-file-buffer file))) |
(let ((buffer (get-file-buffer file))) |
2217 |
(if (and buffer (with-current-buffer buffer |
(if (and buffer (with-current-buffer buffer |