Mercurial > emacs
changeset 9660:adcb2e49f6a2
(dired-do-tags-search, dired-do-tags-query-replace): New functions.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Sat, 22 Oct 1994 16:00:31 +0000 |
| parents | 460e14e9cbc4 |
| children | ca4418b4e8ec |
| files | lisp/dired-aux.el |
| diffstat | 1 files changed, 22 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired-aux.el Sat Oct 22 15:58:56 1994 +0000 +++ b/lisp/dired-aux.el Sat Oct 22 16:00:31 1994 +0000 @@ -1857,6 +1857,28 @@ ;;;###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