Mercurial > emacs
comparison lisp/progmodes/compile.el @ 65316:d2d6a76016a7
(compilation-start): Ignore errors if the process died before we send eof.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 02 Sep 2005 18:37:55 +0000 |
| parents | d88a79e06702 |
| children | 4bc5f5d3e625 |
comparison
equal
deleted
inserted
replaced
| 65315:af6b70a1bba9 | 65316:d2d6a76016a7 |
|---|---|
| 1036 shell-file-name nil `("-c" ,command)))) | 1036 shell-file-name nil `("-c" ,command)))) |
| 1037 (start-process-shell-command (downcase mode-name) | 1037 (start-process-shell-command (downcase mode-name) |
| 1038 outbuf command)))) | 1038 outbuf command)))) |
| 1039 ;; Make the buffer's mode line show process state. | 1039 ;; Make the buffer's mode line show process state. |
| 1040 (setq mode-line-process '(":%s")) | 1040 (setq mode-line-process '(":%s")) |
| 1041 (when compilation-disable-input | |
| 1042 (process-send-eof proc)) | |
| 1043 (set-process-sentinel proc 'compilation-sentinel) | 1041 (set-process-sentinel proc 'compilation-sentinel) |
| 1044 (set-process-filter proc 'compilation-filter) | 1042 (set-process-filter proc 'compilation-filter) |
| 1045 (set-marker (process-mark proc) (point) outbuf) | 1043 (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))) | |
| 1046 (setq compilation-in-progress | 1049 (setq compilation-in-progress |
| 1047 (cons proc compilation-in-progress))) | 1050 (cons proc compilation-in-progress))) |
| 1048 ;; No asynchronous processes available. | 1051 ;; No asynchronous processes available. |
| 1049 (message "Executing `%s'..." command) | 1052 (message "Executing `%s'..." command) |
| 1050 ;; Fake modeline display as if `start-process' were run. | 1053 ;; Fake modeline display as if `start-process' were run. |