Commit dafe5452 authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(grep-tree): Doc fixes.

Added SUBDIRS arg for non-interactive use.
parent 73639417
2002-06-14 Kim F. Storm <storm@filanet.dk>
* progmodes/compile.el (grep-tree): Doc fixes.
Added SUBDIRS arg for non-interactive use.
2002-06-14 Juanma Barranquero <lektu@terra.es>
* comint.el (comint-snapshot-last-prompt): Bind
......
......@@ -860,14 +860,23 @@ easily repeat a find command."
(defvar grep-tree-last-regexp "")
(defvar grep-tree-last-files (car (car grep-tree-files-aliases)))
(defun grep-tree (regexp files dir)
"Grep in directory tree with simplified prompting for search parameters.
(defun grep-tree (regexp files dir &optional subdirs)
"Grep for REGEXP in FILES in directory tree rooted at DIR.
Collect output in a buffer.
Interactively, prompt separately for each search parameter.
With prefix arg, reuse previous REGEXP.
The search is limited to file names matching shell pattern FILES.
FILES may use abbreviations defined in `grep-tree-files-aliases', e.g.
entering `ch' is equivalent to `*.[ch]'.
While find runs asynchronously, you can use the \\[next-error] command
to find the text that grep hits refer to.
This command uses a special history list for its arguments, so you can
easily repeat a find command."
easily repeat a find command.
When used non-interactively, optional arg SUBDIRS limits the search to
those sub directories of DIR."
(interactive
(let* ((regexp
(if current-prefix-arg
......@@ -896,7 +905,11 @@ easily repeat a find command."
grep-tree-command
(setq grep-tree-last-regexp regexp)
(and files (concat "-name '" files "'"))
nil ;; we change default-directory to dir
(if subdirs
(if (stringp subdirs)
subdirs
(mapconcat 'identity subdirs " "))
nil) ;; we change default-directory to dir
(and grep-tree-ignore-CVS-directories "-path '*/CVS' -prune -o ")
grep-tree-ignore-case))
(default-directory dir)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment