mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(grep-tree): Ensure that DIR argument is

Browse Source 
interpreted as a directory.
This commit is contained in:
Jesper Harder 2004-05-23 19:08:48 +00:00
parent 71d5a208a4
commit f5340e292c
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

3
lisp/progmodes/grep.el
View File

@ -533,7 +533,8 @@ those sub directories of DIR."
(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))