1038 |
outbuf command)))) |
outbuf command)))) |
1039 |
;; Make the buffer's mode line show process state. |
;; Make the buffer's mode line show process state. |
1040 |
(setq mode-line-process '(":%s")) |
(setq mode-line-process '(":%s")) |
|
(when compilation-disable-input |
|
|
(process-send-eof proc)) |
|
1041 |
(set-process-sentinel proc 'compilation-sentinel) |
(set-process-sentinel proc 'compilation-sentinel) |
1042 |
(set-process-filter proc 'compilation-filter) |
(set-process-filter proc 'compilation-filter) |
1043 |
(set-marker (process-mark proc) (point) outbuf) |
(set-marker (process-mark proc) (point) outbuf) |
1044 |
|
(when compilation-disable-input |
1045 |
|
(condition-case nil |
1046 |
|
(process-send-eof proc) |
1047 |
|
;; The process may have exited already. |
1048 |
|
(error nil))) |
1049 |
(setq compilation-in-progress |
(setq compilation-in-progress |
1050 |
(cons proc compilation-in-progress))) |
(cons proc compilation-in-progress))) |
1051 |
;; No asynchronous processes available. |
;; No asynchronous processes available. |