# HG changeset patch
# User Jesper Harder <harder@ifa.au.dk>
# Date 1085339328 0
# Node ID ac9369751587a536de9ef1876f762d7d43cb58a8
# Parent  e3f64aa0875d502b39ca2b43078b0bd89ed278de
(grep-tree): Ensure that DIR argument is
interpreted as a directory.

diff -r e3f64aa0875d -r ac9369751587 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat May 22 22:23:13 2004 +0000
+++ b/lisp/ChangeLog	Sun May 23 19:08:48 2004 +0000
@@ -1,3 +1,8 @@
+2004-05-23  Jesper Harder  <harder@ifa.au.dk>
+
+	* progmodes/grep.el (grep-tree): Ensure that DIR argument is
+	interpreted as a directory.
+
 2004-05-22  Richard M. Stallman  <rms@gnu.org>
 
 	* textmodes/paragraphs.el (sentence-end): Match unicode curly quotes
diff -r e3f64aa0875d -r ac9369751587 lisp/progmodes/grep.el
--- a/lisp/progmodes/grep.el	Sat May 22 22:23:13 2004 +0000
+++ b/lisp/progmodes/grep.el	Sun May 23 19:08:48 2004 +0000
@@ -533,7 +533,8 @@
 	  (files
 	   (read-string (concat "Search for \"" regexp "\" in files (default "   grep-tree-last-files  "): ")))
 	  (dir
-	   (read-directory-name "Base directory: " nil default-directory t)))
+	   (file-name-as-directory
+	    (read-directory-name "Base directory: " nil default-directory t))))
      (list regexp files dir)))
   (unless grep-tree-command
     (grep-compute-defaults))