From f833e227cbcf652b20b52c15be9e7bf04af54f97 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 28 May 2004 21:07:47 +0000 Subject: [PATCH] (grep-tree): Rework previous fix. --- lisp/progmodes/grep.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index c5e322a657a..aa81f8aa770 100644 --- a/lisp/progmodes/grep.el +++ b/lisp/progmodes/grep.el @@ -533,8 +533,7 @@ those sub directories of DIR." (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 @@ those sub directories of DIR." 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))) -- 2.39.5