(grep-compute-defaults): If xargs -e isn't supported, use find -exec.

1 files changed, 7 insertions, 3 deletions

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index a426ea64757..5f2d3c7b059 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -560,9 +560,13 @@ to a function that generates a unique name."
           (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)