Mercurial > emacs

changeset 65316:d2d6a76016a7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 af6b70a1bba9
children 547765a33579
files lisp/progmodes/compile.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/compile.el	Fri Sep 02 18:24:29 2005 +0000
+++ b/lisp/progmodes/compile.el	Fri Sep 02 18:37:55 2005 +0000
@@ -1038,11 +1038,14 @@
 						       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.