diff options
| author | Peter Breton <pbreton@attbi.com> | 1999-10-16 03:20:11 +0000 |
|---|---|---|
| committer | Peter Breton <pbreton@attbi.com> | 1999-10-16 03:20:11 +0000 |
| commit | f184a4619db3e220810bd86ce3e02368e4d26469 (patch) | |
| tree | f5f7894ab2ab49fab87d53217cd5118c0ea698e8 /lisp/find-dired.el | |
| parent | a45ba57e29f833bd59ee5a0d4369e6a8e07b107f (diff) | |
| download | emacs-f184a4619db3e220810bd86ce3e02368e4d26469.tar.gz | |
(find-dired-find-program): Added this variable.
(find-dired): Use find-dired-find-program instead of "find".
Diffstat (limited to 'lisp/find-dired.el')
| -rw-r--r-- | lisp/find-dired.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lisp/find-dired.el b/lisp/find-dired.el index 824cdbf013a..a6f560af25e 100644 --- a/lisp/find-dired.el +++ b/lisp/find-dired.el @@ -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 @@ as the final argument." (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 @@ as the final argument." ;; ``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. |