diff lisp/progmodes/compile.el @ 39358:d599e4f7047f

w32 find cannot be used with `grep-find'.

--- a/lisp/progmodes/compile.el	Wed Sep 19 20:21:02 2001 +0000
+++ b/lisp/progmodes/compile.el	Wed Sep 19 20:59:24 2001 +0000
@@ -437,6 +437,10 @@
   "The default grep program for `grep-command' and `grep-find-command'.
 This variable's value takes effect when `grep-compute-defaults' is called.")
 
+(defvar find-program "find"
+  "The default find program for `grep-find-command'.
+This variable's value takes effect when `grep-compute-defaults' is called.")
+
 (defvar grep-find-use-xargs nil
   "Whether \\[grep-find] uses the `xargs' utility by default.
 
@@ -592,12 +596,13 @@
   (unless grep-find-command
     (setq grep-find-command
 	  (cond ((eq grep-find-use-xargs 'gnu)
-		 (format "find . -type f -print0 | xargs -0 -e %s"
-			 grep-command))
+		 (format "%s . -type f -print0 | xargs -0 -e %s"
+			 find-program grep-command))
 		(grep-find-use-xargs
-		 (format "find . -type f -print | xargs %s" grep-command))
-		(t (cons (format "find . -type f -exec %s {} %s \\;"
-				 grep-command null-device)
+		 (format "%s . -type f -print | xargs %s"
+                         find-program grep-command))
+		(t (cons (format "%s . -type f -exec %s {} %s \\;"
+				 find-program grep-command null-device)
 			 (+ 22 (length grep-command))))))))
 
 ;;;###autoload