andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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