533 |
(files |
(files |
534 |
(read-string (concat "Search for \"" regexp "\" in files (default " grep-tree-last-files "): "))) |
(read-string (concat "Search for \"" regexp "\" in files (default " grep-tree-last-files "): "))) |
535 |
(dir |
(dir |
536 |
(file-name-as-directory |
(read-directory-name "Base directory: " nil default-directory t))) |
|
(read-directory-name "Base directory: " nil default-directory t)))) |
|
537 |
(list regexp files dir))) |
(list regexp files dir))) |
538 |
(unless grep-tree-command |
(unless grep-tree-command |
539 |
(grep-compute-defaults)) |
(grep-compute-defaults)) |
555 |
nil) ;; we change default-directory to dir |
nil) ;; we change default-directory to dir |
556 |
(and grep-tree-ignore-CVS-directories "-path '*/CVS' -prune -o ") |
(and grep-tree-ignore-CVS-directories "-path '*/CVS' -prune -o ") |
557 |
grep-tree-ignore-case)) |
grep-tree-ignore-case)) |
558 |
(default-directory dir) |
(default-directory (file-name-as-directory (expand-file-name dir))) |
559 |
(null-device nil)) ; see grep |
(null-device nil)) ; see grep |
560 |
(grep command-args regexp))) |
(grep command-args regexp))) |
561 |
|
|