# HG changeset patch
# User Peter Breton <pbreton@attbi.com>
# Date 940044011 0
# Node ID 1eb2f529058fe97e6a8ea19d963df8dd74a65dce
# Parent  01eac276e455c50b7af6f6b046a8090c03a6c699
(find-dired-find-program): Added this variable.
(find-dired): Use find-dired-find-program instead of "find".

diff -r 01eac276e455 -r 1eb2f529058f lisp/find-dired.el
--- 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.