Mercurial > emacs
changeset 107553:04698fd447b3
* find-dired.el (find-dired): Use read-directory-name (Bug#5777).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 28 Mar 2010 15:31:27 -0400 |
| parents | d9250f687548 |
| children | 41aaf2a76894 |
| files | lisp/ChangeLog lisp/find-dired.el |
| diffstat | 2 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Mar 28 12:22:52 2010 -0700 +++ b/lisp/ChangeLog Sun Mar 28 15:31:27 2010 -0400 @@ -1,3 +1,7 @@ +2010-03-28 Stefan Guath <stefan@automata.se> (tiny change) + + * find-dired.el (find-dired): Use read-directory-name (Bug#5777). + 2010-03-25 Glenn Morris <rgm@gnu.org> * desktop.el (desktop-save-buffer-p): Don't mistakenly include
--- a/lisp/find-dired.el Sun Mar 28 12:22:52 2010 -0700 +++ b/lisp/find-dired.el Sun Mar 28 15:31:27 2010 -0400 @@ -99,7 +99,7 @@ except that the variable `find-ls-option' specifies what to use as the final argument." - (interactive (list (read-file-name "Run find in directory: " nil "" t) + (interactive (list (read-directory-name "Run find in directory: " nil "" t) (read-string "Run find (with args): " find-args '(find-args-history . 1)))) (let ((dired-buffers dired-buffers))