From 458c8d31e48f4debe605794fce7cb09037889629 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Tue, 25 Aug 2009 10:11:08 +0000 Subject: * progmodes/grep.el (grep-probe): Let-bind `process-file-side-effects' with nil. --- lisp/progmodes/grep.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'lisp/progmodes/grep.el') 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'." (run-hooks 'grep-setup-hook)) (defun grep-probe (command args &optional func result) - (equal (condition-case nil - (apply (or func 'process-file) command args) - (error nil)) - (or result 0))) + (let (process-file-side-effects) + (equal (condition-case nil + (apply (or func 'process-file) command args) + (error nil)) + (or result 0)))) ;;;###autoload (defun grep-compute-defaults () -- cgit v1.2.1