Mercurial > emacs

changeset 104601:3f203311bcc1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* progmodes/grep.el (grep-probe): Let-bind `process-file-side-effects' with nil.
author Michael Albinus <michael.albinus@gmx.de>
date Tue, 25 Aug 2009 10:11:08 +0000
parents 2209bd027daa
children d74b934b16e5
files lisp/progmodes/grep.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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 ()