# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1124540064 0
# Node ID 4ac20fef0d09bb2c1358a7e41f0adebbedc5c9a8
# Parent  a1cc73fd816152c87214ac8b1c9dfd03f3423d50
(compilation-disable-input): New defcustom.
(compilation-start): If compilation-disable-input is non-nil, send EOF to
the compilation process.

diff -r a1cc73fd8161 -r 4ac20fef0d09 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Sat Aug 20 11:58:09 2005 +0000
+++ b/lisp/progmodes/compile.el	Sat Aug 20 12:14:24 2005 +0000
@@ -446,6 +446,14 @@
   :type 'string
   :group 'compilation)
 
+(defcustom compilation-disable-input t
+  "*If non-nil, send end-of-file as compilation process input.
+This only affects platforms that support asynchronous processes (see
+start-process); synchronous compilation processes never accept input."
+  :type 'boolean
+  :group 'compilation
+  :version "22.1")
+
 ;; A weak per-compilation-buffer hash indexed by (FILENAME . DIRECTORY).  Each
 ;; value is a FILE-STRUCTURE as described above, with the car eq to the hash
 ;; key.	 This holds the tree seen from root, for storing new nodes.
@@ -1022,6 +1030,8 @@
 						       outbuf command))))
 	      ;; Make the buffer's mode line show process state.
 	      (setq mode-line-process '(":%s"))
+	      (when compilation-disable-input
+		(process-send-eof proc))
 	      (set-process-sentinel proc 'compilation-sentinel)
 	      (set-process-filter proc 'compilation-filter)
 	      (set-marker (process-mark proc) (point) outbuf)