446 |
:type 'string |
:type 'string |
447 |
:group 'compilation) |
:group 'compilation) |
448 |
|
|
449 |
|
(defcustom compilation-disable-input t |
450 |
|
"*If non-nil, send end-of-file as compilation process input. |
451 |
|
This only affects platforms that support asynchronous processes (see |
452 |
|
start-process); synchronous compilation processes never accept input." |
453 |
|
:type 'boolean |
454 |
|
:group 'compilation |
455 |
|
:version "22.1") |
456 |
|
|
457 |
;; A weak per-compilation-buffer hash indexed by (FILENAME . DIRECTORY). Each |
;; A weak per-compilation-buffer hash indexed by (FILENAME . DIRECTORY). Each |
458 |
;; value is a FILE-STRUCTURE as described above, with the car eq to the hash |
;; value is a FILE-STRUCTURE as described above, with the car eq to the hash |
459 |
;; key. This holds the tree seen from root, for storing new nodes. |
;; key. This holds the tree seen from root, for storing new nodes. |
1030 |
outbuf command)))) |
outbuf command)))) |
1031 |
;; Make the buffer's mode line show process state. |
;; Make the buffer's mode line show process state. |
1032 |
(setq mode-line-process '(":%s")) |
(setq mode-line-process '(":%s")) |
1033 |
|
(when compilation-disable-input |
1034 |
|
(process-send-eof proc)) |
1035 |
(set-process-sentinel proc 'compilation-sentinel) |
(set-process-sentinel proc 'compilation-sentinel) |
1036 |
(set-process-filter proc 'compilation-filter) |
(set-process-filter proc 'compilation-filter) |
1037 |
(set-marker (process-mark proc) (point) outbuf) |
(set-marker (process-mark proc) (point) outbuf) |