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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 84f038667c2ebd424a7d0ac19f8a43bd4e99ec0e..6098c2fc3a1f8f4946ac9b712d6de437c276ffb0 100644 (file)
--- 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 9458fdfec434b8ea63db846643c8ecf2435010d9..0c8229c8f7aee91810137ca4529540428d788241 100644 (file)
--- 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))