# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1251195068 0
# Node ID 3f203311bcc11eedf607908b0b830af5f309d77b
# Parent  2209bd027daa1cd9f0d2cf97bc8d486d7f69515e
* progmodes/grep.el (grep-probe): Let-bind `process-file-side-effects' with nil.

diff -r 2209bd027daa -r 3f203311bcc1 lisp/progmodes/grep.el
--- a/lisp/progmodes/grep.el	Tue Aug 25 09:05:07 2009 +0000
+++ b/lisp/progmodes/grep.el	Tue Aug 25 10:11:08 2009 +0000
@@ -458,10 +458,11 @@
   (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 ()