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))