From 32993501da2a61b739c6c65fb42f16e3d3554272 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 20 Aug 2005 21:47:40 +0000 Subject: [PATCH] (grep): Bind compilation-disable-input to t. --- lisp/progmodes/grep.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 2.39.2