Index: emacs/lisp/progmodes/compile.el
diff -c emacs/lisp/progmodes/compile.el:1.379
emacs/lisp/progmodes/compile.el:1.380
*** emacs/lisp/progmodes/compile.el:1.379 Tue Aug 30 10:39:41 2005
--- emacs/lisp/progmodes/compile.el Fri Sep 2 18:37:55 2005
***************
*** 1038,1048 ****
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)
(setq compilation-in-progress
(cons proc compilation-in-progress)))
;; No asynchronous processes available.
--- 1038,1051 ----
outbuf command))))
;; Make the buffer's mode line show process state.
(setq mode-line-process '(":%s"))
(set-process-sentinel proc 'compilation-sentinel)
(set-process-filter proc 'compilation-filter)
(set-marker (process-mark proc) (point) outbuf)
+ (when compilation-disable-input
+ (condition-case nil
+ (process-send-eof proc)
+ ;; The process may have exited already.
+ (error nil)))
(setq compilation-in-progress
(cons proc compilation-in-progress)))
;; No asynchronous processes available.
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
