diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/grep.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index d6387d39017..5c3ce5ec34c 100644 --- a/lisp/progmodes/grep.el +++ b/lisp/progmodes/grep.el @@ -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) |