From 8e54c0789a08c4805fe01e1265fd1d62483025a6 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Sat, 22 Oct 1994 16:00:31 +0000 Subject: (dired-do-tags-search, dired-do-tags-query-replace): New functions. --- lisp/dired-aux.el | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) (limited to 'lisp/dired-aux.el') diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index faf69620148..878e5c57108 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -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 -- cgit v1.2.1