* find-dired.el (find-dired): Use read-directory-name (Bug#5777).

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 84f038667c2..6098c2fc3a1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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
diff --git a/lisp/find-dired.el b/lisp/find-dired.el
index 9458fdfec43..0c8229c8f7a 100644
--- a/lisp/find-dired.el
+++ b/lisp/find-dired.el
@@ -99,7 +99,7 @@ The command run (after changing into DIR) is
 
 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))