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

(dired-do-tags-search, dired-do-tags-query-replace): New functions.

Browse source
This commit is contained in:
Roland McGrath 1994-10-22 16:00:31 +00:00
parent 866a70355c
commit 2297e912cf
1 changed files with 22 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lisp/dired-aux.el
View file

@ -1857,6 +1857,28 @@ Use \\[dired-hide-subdir] to (un)hide a particular subdirectory."
;;;###end dired-ins.el
;; Functions for searching in tags style among marked files.
;;;###autoload
(defun dired-do-tags-search (regexp)
"Search through all marked files for a match for REGEXP.
Stops when a match is found.
To continue searching for next match, use command \\[tags-loop-continue]."
(interactive "sSearch marked files (regexp): ")
(tags-search regexp '(dired-get-marked-files)))
;;;###autoload
(defun dired-do-tags-query-replace (from to &optional delimited)
"Query-replace-regexp FROM with TO through all marked files.
Third arg DELIMITED (prefix arg) means replace only word-delimited matches.
If you exit (\\[keyboard-quit] or ESC), you can resume the query-replace
with the command \\[tags-loop-continue]."
(interactive
"sQuery replace in marked files (regexp): \nsQuery replace %s by: \nP")
(tags-query-replace from to delimited '(dired-get-marked-files)))
(provide 'dired-aux)
;;; dired-aux.el ends here