[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el

[Stefan Monnier]

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.