diff options
| author | Eli Zaretskii <[email protected]> | 2005-08-20 12:14:24 +0000 |
|---|---|---|
| committer | Eli Zaretskii <[email protected]> | 2005-08-20 12:14:24 +0000 |
| commit | 3fa37cd13c371726db2a72b5ceec08fcd75aa45e (patch) | |
| tree | 1c4920374b0f8eaeae15e1e1e76b19a4c13e6e22 /lisp/progmodes | |
| parent | 7bc7ab5a68f8da1d10cf72293d47f870d607742a (diff) | |
(compilation-disable-input): New defcustom.
(compilation-start): If compilation-disable-input is non-nil, send EOF to
the compilation process.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/compile.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 253a420da2..8fd261f04f 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -446,6 +446,14 @@ You might also use mode hooks to specify it in certain modes, like this: :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 @@ Returns the compilation buffer created." 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) |