From d9823c3c1835b21e9550d06cc3db37f105a0cd45 Mon Sep 17 00:00:00 2001 From: Peter Breton Date: Sat, 16 Oct 1999 03:20:11 +0000 Subject: [PATCH] (find-dired-find-program): Added this variable. (find-dired): Use find-dired-find-program instead of "find". --- lisp/find-dired.el | 10 ++++++++-- 1 file 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. -- 2.39.5