mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-02 20:16:25 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Michael Albinus 2009-08-25 10:11:08 +00:00
parent 04473f6756
commit 458c8d31e4
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/progmodes/grep.el
View File

@ -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 ()