* progmodes/grep.el (grep-probe): Let-bind `process-file-side-effects' with nil.

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'."
   (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 ()