Mercurial > emacs
changeset 55804:9766648e58a2
(grep-tree): Rework previous fix.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 28 May 2004 21:07:47 +0000 |
| parents | 9070d5f984ea |
| children | a4c5317be59a |
| files | lisp/progmodes/grep.el |
| diffstat | 1 files changed, 2 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/grep.el Fri May 28 21:06:26 2004 +0000 +++ b/lisp/progmodes/grep.el Fri May 28 21:07:47 2004 +0000 @@ -533,8 +533,7 @@ (files (read-string (concat "Search for \"" regexp "\" in files (default " grep-tree-last-files "): "))) (dir - (file-name-as-directory - (read-directory-name "Base directory: " nil default-directory t)))) + (read-directory-name "Base directory: " nil default-directory t))) (list regexp files dir))) (unless grep-tree-command (grep-compute-defaults)) @@ -556,7 +555,7 @@ nil) ;; we change default-directory to dir (and grep-tree-ignore-CVS-directories "-path '*/CVS' -prune -o ") grep-tree-ignore-case)) - (default-directory dir) + (default-directory (file-name-as-directory (expand-file-name dir))) (null-device nil)) ; see grep (grep command-args regexp)))