Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 18:37:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

(compilation-disable-input): New defcustom.

Browse source 
(compilation-start): If compilation-disable-input is non-nil, send EOF to
the compilation process.
This commit is contained in:
Eli Zaretskii 2005-08-20 12:14:24 +00:00
parent 7bc7ab5a68
commit 3fa37cd13c
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/progmodes/compile.el
View file

@ -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)