/[emacs]/emacs/lisp/progmodes/compile.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/compile.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.379 by lektu, Tue Aug 30 10:39:41 2005 UTC revision 1.380 by monnier, Fri Sep 2 18:37:55 2005 UTC
# Line 1038  Returns the compilation buffer created." Line 1038  Returns the compilation buffer created."
1038                                                         outbuf command))))                                                         outbuf command))))
1039                ;; Make the buffer's mode line show process state.                ;; Make the buffer's mode line show process state.
1040                (setq mode-line-process '(":%s"))                (setq mode-line-process '(":%s"))
               (when compilation-disable-input  
                 (process-send-eof proc))  
1041                (set-process-sentinel proc 'compilation-sentinel)                (set-process-sentinel proc 'compilation-sentinel)
1042                (set-process-filter proc 'compilation-filter)                (set-process-filter proc 'compilation-filter)
1043                (set-marker (process-mark proc) (point) outbuf)                (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)))
1049                (setq compilation-in-progress                (setq compilation-in-progress
1050                      (cons proc compilation-in-progress)))                      (cons proc compilation-in-progress)))
1051            ;; No asynchronous processes available.            ;; No asynchronous processes available.

Legend:
Removed from v.1.379  
changed lines
  Added in v.1.380

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26