2007-12-17  Mike Sperber  <mike(a)xemacs.org>
	* igrep.el (igrep-find-use-xargs): Cater to the case where we have
	GNU find, but no xargs -e.  (Mac OS X, for example.)
-- 
Cheers =8-} Mike
Friede, Völkerverständigung und überhaupt blabla
Index: igrep.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/igrep/igrep.el,v
retrieving revision 1.13
diff -u -r1.13 igrep.el
--- igrep.el	21 Aug 2007 15:14:04 -0000	1.13
+++ igrep.el	17 Dec 2007 12:17:14 -0000
@@ -447,11 +447,13 @@
 see `igrep-find'.")
 
 (defvar igrep-find-use-xargs
-  (cond ((equal (call-process igrep-find-program nil nil nil
-                              igrep-null-device "-print0")
+  (cond ((not (equal (call-process "xargs" nil nil nil "-e") 0))
+	 nil)
+	((equal (call-process igrep-find-program nil nil nil
+			      igrep-null-device "-print0")
                 0)
 	 'gnu)
-        ((equal (call-process "xargs" nil nil nil "-e") 0)))
+	(t t))
   "Whether `\\[igrep-find]' uses the `xargs` program or not.
 If `gnu', it executes
 	`find ... -print0 | xargs -0 -e grep ...`;
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches