Mercurial > emacs

comparison lisp/find-dired.el @ 107553:04698fd447b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* find-dired.el (find-dired): Use read-directory-name (Bug#5777).
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 28 Mar 2010 15:31:27 -0400
parents 1d1d5d9bd884
children 417b1e4d63cd
comparison
equal deleted inserted replaced
107552:d9250f687548 107553:04698fd447b3
97 97
98 find . \\( ARGS \\) -ls 98 find . \\( ARGS \\) -ls
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))
106 ;; Expand DIR ("" means default-directory), and make sure it has a 106 ;; Expand DIR ("" means default-directory), and make sure it has a
107 ;; trailing slash. 107 ;; trailing slash.