/[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.236.4.2 by gerd, Thu Oct 25 07:51:55 2001 UTC revision 1.236.4.3 by rms, Wed Dec 26 21:31:43 2001 UTC
# Line 826  Returns the compilation buffer created." Line 826  Returns the compilation buffer created."
826              (funcall compilation-process-setup-function))              (funcall compilation-process-setup-function))
827          ;; Start the compilation.          ;; Start the compilation.
828          (if (fboundp 'start-process)          (if (fboundp 'start-process)
829              (let* ((process-environment              (let* ((process-environment process-environment)
                     ;; Don't override users' setting of $EMACS.  
                     (if (getenv "EMACS")  
                         process-environment  
                       (cons "EMACS=t" process-environment)))  
830                     (proc (start-process-shell-command (downcase mode-name)                     (proc (start-process-shell-command (downcase mode-name)
831                                                        outbuf                                                        outbuf
832                                                        command)))                                                        command)))
833                  ;; Set the terminal type
834                  (setq process-environment
835                        (if (and (boundp 'system-uses-terminfo)
836                                 system-uses-terminfo)
837                            (list "TERM=dumb" "TERMCAP="
838                                  (format "COLUMNS=%d" (window-width)))
839                          (list "TERM=emacs"
840                                (format "TERMCAP=emacs:co#%d:tc=unknown:"
841                                        (window-width)))))
842                  ;; Set the EMACS variable, but
843                  ;; don't override users' setting of $EMACS.
844                  (if (getenv "EMACS")
845                      (setq process-environment
846                            (cons "EMACS=t" process-environment)))
847                (set-process-sentinel proc 'compilation-sentinel)                (set-process-sentinel proc 'compilation-sentinel)
848                (set-process-filter proc 'compilation-filter)                (set-process-filter proc 'compilation-filter)
849                (set-marker (process-mark proc) (point) outbuf)                (set-marker (process-mark proc) (point) outbuf)

Legend:
Removed from v.1.236.4.2  
changed lines
  Added in v.1.236.4.3

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