diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/find-dired.el | 2 |
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 @@ | |||
| 1 | 2010-03-28 Stefan Guath <stefan@automata.se> (tiny change) | ||
| 2 | |||
| 3 | * find-dired.el (find-dired): Use read-directory-name (Bug#5777). | ||
| 4 | |||
| 1 | 2010-03-25 Glenn Morris <rgm@gnu.org> | 5 | 2010-03-25 Glenn Morris <rgm@gnu.org> |
| 2 | 6 | ||
| 3 | * desktop.el (desktop-save-buffer-p): Don't mistakenly include | 7 | * 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 | |||
| 99 | 99 | ||
| 100 | except that the variable `find-ls-option' specifies what to use | 100 | except that the variable `find-ls-option' specifies what to use |
| 101 | as the final argument." | 101 | as the final argument." |
| 102 | (interactive (list (read-file-name "Run find in directory: " nil "" t) | 102 | (interactive (list (read-directory-name "Run find in directory: " nil "" t) |
| 103 | (read-string "Run find (with args): " find-args | 103 | (read-string "Run find (with args): " find-args |
| 104 | '(find-args-history . 1)))) | 104 | '(find-args-history . 1)))) |
| 105 | (let ((dired-buffers dired-buffers)) | 105 | (let ((dired-buffers dired-buffers)) |