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