diff options
| author | Michael Albinus | 2009-08-25 10:11:08 +0000 |
|---|---|---|
| committer | Michael Albinus | 2009-08-25 10:11:08 +0000 |
| commit | 458c8d31e48f4debe605794fce7cb09037889629 (patch) | |
| tree | 6da16e8a159e14af2f83633efb940805f46a1c47 | |
| parent | 04473f67564fa927acd5c8e13fa5a298c9e6865f (diff) | |
| download | emacs-458c8d31e48f4debe605794fce7cb09037889629.tar.gz emacs-458c8d31e48f4debe605794fce7cb09037889629.zip | |
* progmodes/grep.el (grep-probe): Let-bind `process-file-side-effects' with nil.
| -rw-r--r-- | lisp/progmodes/grep.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index 30fb40c2620..5c199016c65 100644 --- a/lisp/progmodes/grep.el +++ b/lisp/progmodes/grep.el | |||
| @@ -458,10 +458,11 @@ Set up `compilation-exit-message-function' and run `grep-setup-hook'." | |||
| 458 | (run-hooks 'grep-setup-hook)) | 458 | (run-hooks 'grep-setup-hook)) |
| 459 | 459 | ||
| 460 | (defun grep-probe (command args &optional func result) | 460 | (defun grep-probe (command args &optional func result) |
| 461 | (equal (condition-case nil | 461 | (let (process-file-side-effects) |
| 462 | (apply (or func 'process-file) command args) | 462 | (equal (condition-case nil |
| 463 | (error nil)) | 463 | (apply (or func 'process-file) command args) |
| 464 | (or result 0))) | 464 | (error nil)) |
| 465 | (or result 0)))) | ||
| 465 | 466 | ||
| 466 | ;;;###autoload | 467 | ;;;###autoload |
| 467 | (defun grep-compute-defaults () | 468 | (defun grep-compute-defaults () |