Commit 458c8d31 authored by Michael Albinus's avatar Michael Albinus
Browse files

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

parent 04473f67
......@@ -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 ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment