# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1124574460 0
# Node ID fb6294015f511a4a8d4e3192506c2fe6452b223a
# Parent  0b9598224a95a0b92e70e1e3bebadfc9d84abd71
(grep): Bind compilation-disable-input to t.

diff -r 0b9598224a95 -r fb6294015f51 lisp/progmodes/grep.el
--- a/lisp/progmodes/grep.el	Sat Aug 20 21:47:06 2005 +0000
+++ b/lisp/progmodes/grep.el	Sat Aug 20 21:47:40 2005 +0000
@@ -517,7 +517,8 @@
 
   ;; 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)