# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1269804687 14400
# Node ID 04698fd447b3c9744d6ec7b6b6bcda512a4951dc
# Parent  d9250f68754847ed366cc6ded31dc4ea27e7df72
* find-dired.el (find-dired): Use read-directory-name (Bug#5777).

diff -r d9250f687548 -r 04698fd447b3 lisp/ChangeLog
--- 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
diff -r d9250f687548 -r 04698fd447b3 lisp/find-dired.el
--- 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))