diff options
| -rw-r--r-- | lisp/progmodes/compile.el | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 3587e342dac..c5233444f15 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -341,16 +341,17 @@ Otherwise, it saves all modified buffers without asking." | |||
| 341 | ;; The system null device. (Should reference NULL_DEVICE from C.) | 341 | ;; The system null device. (Should reference NULL_DEVICE from C.) |
| 342 | (defvar grep-null-device "/dev/null" "The system null device.") | 342 | (defvar grep-null-device "/dev/null" "The system null device.") |
| 343 | 343 | ||
| 344 | ;; Use zgrep if available, to work nicely with compressed files. | ||
| 345 | ;; Otherwise, use ordinary grep. | ||
| 346 | (defvar grep-program | 344 | (defvar grep-program |
| 347 | (if (equal (condition-case nil ; in case "zgrep" isn't in exec-path | 345 | ;; Currently zgrep has trouble. It runs egrep instead of grep, |
| 348 | (call-process "zgrep" nil nil nil | 346 | ;; and it doesn't pass along long options right. |
| 349 | "foo" grep-null-device) | 347 | "grep" |
| 350 | (error nil)) | 348 | ;;; (if (equal (condition-case nil ; in case "zgrep" isn't in exec-path |
| 351 | 1) | 349 | ;;; (call-process "zgrep" nil nil nil |
| 352 | "zgrep" | 350 | ;;; "foo" grep-null-device) |
| 353 | "grep") | 351 | ;;; (error nil)) |
| 352 | ;;; 1) | ||
| 353 | ;;; "zgrep" | ||
| 354 | ;;; "grep") | ||
| 354 | "The default grep program for `grep-command' and `grep-find-command'.") | 355 | "The default grep program for `grep-command' and `grep-find-command'.") |
| 355 | 356 | ||
| 356 | ;; Use -e if grep supports it, | 357 | ;; Use -e if grep supports it, |