From: Chong Yidong Date: Sun, 28 Mar 2010 19:31:27 +0000 (-0400) Subject: * find-dired.el (find-dired): Use read-directory-name (Bug#5777). X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~647 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7ed287b581c0347bf7abfb5bb4e3bdfd8685c457;p=emacs.git * find-dired.el (find-dired): Use read-directory-name (Bug#5777). --- 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 (tiny change) + + * find-dired.el (find-dired): Use read-directory-name (Bug#5777). + 2010-03-25 Glenn Morris * 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))