Mercurial > emacs
changeset 26042:1eb2f529058f
(find-dired-find-program): Added this variable.
(find-dired): Use find-dired-find-program instead of "find".
| author | Peter Breton <pbreton@attbi.com> |
|---|---|
| date | Sat, 16 Oct 1999 03:20:11 +0000 |
| parents | 01eac276e455 |
| children | 255f19f33b82 |
| files | lisp/find-dired.el |
| diffstat | 1 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/find-dired.el Sat Oct 16 03:15:58 1999 +0000 +++ b/lisp/find-dired.el Sat Oct 16 03:20:11 1999 +0000 @@ -33,6 +33,12 @@ :group 'dired :prefix "find-") +(defcustom find-dired-find-program "find" + "Program used to find files." + :group 'dired + :type 'file + ) + ;; find's -ls corresponds to these switches. ;; Note -b, at least GNU find quotes spaces etc. in filenames ;;;###autoload @@ -92,7 +98,7 @@ (erase-buffer) (setq default-directory dir find-args args ; save for next interactive call - args (concat "find . " + args (concat find-dired-find-program " . " (if (string= args "") "" (concat "\\( " args " \\) ")) @@ -120,7 +126,7 @@ ;; ``wildcard'' line. (insert " " args "\n") ;; Start the find process. - (let ((proc (start-process-shell-command "find" (current-buffer) args))) + (let ((proc (start-process-shell-command find-dired-find-program (current-buffer) args))) (set-process-filter proc (function find-dired-filter)) (set-process-sentinel proc (function find-dired-sentinel)) ;; Initialize the process marker; it is used by the filter.