# HG changeset patch
# User Sam Steingold <sds@gnu.org>
# Date 1000933164 0
# Node ID d599e4f7047fa62863d8802003012398e9ee775e
# Parent  9012f11877c15a91552518ed0628a63e65ce277a
w32 find cannot be used with `grep-find'.

diff -r 9012f11877c1 -r d599e4f7047f lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Sep 19 20:21:02 2001 +0000
+++ b/lisp/ChangeLog	Wed Sep 19 20:59:24 2001 +0000
@@ -1,3 +1,9 @@
+2001-09-19  Sam Steingold  <sds@gnu.org>
+
+	w32 find cannot be used with `grep-find'.
+	* progmodes/compile.el (find-program): New variable.
+	(grep-compute-defaults): Use it to set `grep-find-command'.
+
 2001-09-19  Gerd Moellmann  <gerd@gnu.org>
 
 	* ps-bdf.el (bdf-read-bitmap): Initialize returned values to
@@ -85,10 +91,10 @@
 	* simple.el: Comment out change of 2001-09-13.
 
 2001-09-13  Michael Kifer  <kifer@cs.sunysb.edu>
-	
+
 	* viper-cmd.el (viper-replace-char-subr, viper-envelop-ESC-key):
 	inhibit quit.
-	
+
 2001-09-13  Eli Zaretskii  <eliz@is.elta.co.il>
 
 	* files.el (make-auto-save-file-name): If long file names are not
@@ -97,7 +103,7 @@
 
 2001-09-13  Gerd Moellmann  <gerd@gnu.org>
 
-	* ps-print.el (ps-print-region, ps-print-region-with-faces) 
+	* ps-print.el (ps-print-region, ps-print-region-with-faces)
 	(ps-nb-pages-region): Signal an error if called interactively
 	and the mark is not active.
 
@@ -156,18 +162,18 @@
 	* mail/sendmail.el (mail-send): Obey mail-send-nonascii when
 	enable-multibyte-characters = nil.  From Hallvard B Furuseth
 	<h.b.furuseth@usit.uio.no>.
-	
+
 2001-09-09  Michael Kifer  <kifer@cs.sunysb.edu>
-	
+
 	* ediff-init.el (ediff-highest-priority): bug fix.
 
 	* viper-cmd.el (viper-special-read-and-insert-char): new function
 	that reads a character and uses the current input method or
 	iso-accents when appropriate.
-	
+
 	* viper.el and all others: corrections to the comment blocks at
 	the top.
-	
+
 2001-09-09  Eli Zaretskii  <eliz@is.elta.co.il>
 
 	* info.el (Info-goto-node): Doc fix.
@@ -186,7 +192,7 @@
 	the entries, to keep the line length balanced for loaddefs.el.
 
 2001-09-07  Dr Francis J. Wright  <F.J.Wright@qmw.ac.uk>
-	
+
 	* comint.el (comint-send-input): Handle comint-process-echoes
 	differently.
 
@@ -201,7 +207,7 @@
 	computation.
 
 2001-09-07  Gerd Moellmann  <gerd@gnu.org>
-	
+
 	* server.el (server-switch-buffer): Use get-window-with-predicate.
 
 	* textmodes/refer.el (refer-find-entry-internal): Use
@@ -255,7 +261,7 @@
 
 	* comint.el (comint-send-input): Change help-echo.
 	From "Dr Francis J. Wright" <F.J.Wright@qmw.ac.uk>.
-	
+
 	* bookmark.el (bookmark-write-file): Bind print-length and
 	print-level to nil.  From Tom Capey <tomc@edina.co.uk>.
 
diff -r 9012f11877c1 -r d599e4f7047f lisp/progmodes/compile.el
--- 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