From 32eb2c08bcbbefd726542684e4d598d9d1079764 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 2 Sep 2005 18:37:55 +0000 Subject: [PATCH] (compilation-start): Ignore errors if the process died before we send eof. --- lisp/progmodes/compile.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 9ac3aa5709d..6321216dcce 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1038,11 +1038,14 @@ 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) + (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. -- 2.39.2