[Emacs-diffs] /srv/bzr/emacs/trunk r99759: * find-dired.el (find-dired): Use read-directory-name (Bug#5777).

[Chong Yidong]

------------------------------------------------------------
revno: 99759
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2010-03-28 15:31:27 -0400
message:
  * find-dired.el (find-dired): Use read-directory-name (Bug#5777).
modified:
  lisp/ChangeLog
  lisp/find-dired.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-03-25 06:18:17 +0000
+++ b/lisp/ChangeLog    2010-03-28 19:31:27 +0000
@@ -1,3 +1,7 @@
+2010-03-28  Stefan Guath  <address@hidden>  (tiny change)
+
+       * find-dired.el (find-dired): Use read-directory-name (Bug#5777).
+
 2010-03-25  Glenn Morris  <address@hidden>
 
        * desktop.el (desktop-save-buffer-p): Don't mistakenly include

=== modified file 'lisp/find-dired.el'
--- a/lisp/find-dired.el        2010-01-13 08:35:10 +0000
+++ b/lisp/find-dired.el        2010-03-28 19:31:27 +0000
@@ -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))