Mercurial > emacs
comparison lisp/progmodes/compile.el @ 24623:a79624ba3e74
(grep-compute-defaults): If xargs -e isn't supported, use find -exec.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Mon, 26 Apr 1999 04:49:42 +0000 |
parents | ea8a9509b52f |
children | 5b75b8661881 |
comparison
equal
deleted
inserted
replaced
24622:787f4cefd148 | 24623:a79624ba3e74 |
---|---|
558 1) | 558 1) |
559 (format "%s -n -e " grep-program) | 559 (format "%s -n -e " grep-program) |
560 (format "%s -n " grep-program))) | 560 (format "%s -n " grep-program))) |
561 (unless grep-find-use-xargs | 561 (unless grep-find-use-xargs |
562 (setq grep-find-use-xargs | 562 (setq grep-find-use-xargs |
563 (if (equal (call-process "find" nil nil nil | 563 (if (and |
564 null-device "-print0") | 564 (equal (call-process "find" nil nil nil |
565 0) | 565 null-device "-print0") |
566 0) | |
567 (equal (call-process "xargs" nil nil nil | |
568 "-0" "-e" "echo") | |
569 0)) | |
566 'gnu))) | 570 'gnu))) |
567 (setq grep-find-command | 571 (setq grep-find-command |
568 (cond ((eq grep-find-use-xargs 'gnu) | 572 (cond ((eq grep-find-use-xargs 'gnu) |
569 (format "find . -type f -print0 | xargs -0 -e %s" | 573 (format "find . -type f -print0 | xargs -0 -e %s" |
570 grep-command)) | 574 grep-command)) |