# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 925102182 0
# Node ID a79624ba3e74d45dbd85ca76fd3a78255d57626f
# Parent  787f4cefd148716feda2b0ab8fbb570f51e5425a
(grep-compute-defaults): If xargs -e isn't supported, use find -exec.

diff -r 787f4cefd148 -r a79624ba3e74 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Mon Apr 26 04:33:56 1999 +0000
+++ b/lisp/progmodes/compile.el	Mon Apr 26 04:49:42 1999 +0000
@@ -560,9 +560,13 @@
 	  (format "%s -n " grep-program)))
   (unless grep-find-use-xargs
     (setq grep-find-use-xargs
-	  (if (equal (call-process "find" nil nil nil
-				   null-device "-print0")
-		     0)
+	  (if (and
+               (equal (call-process "find" nil nil nil
+                                    null-device "-print0")
+                      0)
+               (equal (call-process "xargs" nil nil nil
+                                    "-0" "-e" "echo")
+		     0))
 	      'gnu)))
   (setq grep-find-command
 	(cond ((eq grep-find-use-xargs 'gnu)