Commit 32993501 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(grep): Bind compilation-disable-input to t.

parent 93ef35e4
......@@ -517,7 +517,8 @@ temporarily highlight in visited source lines."
;; Setting process-setup-function makes exit-message-function work
;; even when async processes aren't supported.
(let ((compilation-process-setup-function 'grep-process-setup))
(let ((compilation-process-setup-function 'grep-process-setup)
(compilation-disable-input t))
(compilation-start (if (and grep-use-null-device null-device)
(concat command-args " " null-device)
command-args)
......
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