From ac6b7d78589abd2551131431a95e6532a710aab5 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 26 Apr 1999 04:49:42 +0000 Subject: [PATCH] (grep-compute-defaults): If xargs -e isn't supported, use find -exec. --- lisp/progmodes/compile.el | 10 +++++++--- 1 file 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) -- 2.39.2