Mercurial > emacs
comparison lisp/progmodes/compile.el @ 42339:fb68db8b6578
(compile-internal): Set TERM variable in process-environment.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 26 Dec 2001 21:26:11 +0000 |
parents | ab6cfeb406ab |
children | e0faaa516289 |
comparison
equal
deleted
inserted
replaced
42338:8649ccc72076 | 42339:fb68db8b6578 |
---|---|
897 (compilation-set-window-height outwin) | 897 (compilation-set-window-height outwin) |
898 (if compilation-process-setup-function | 898 (if compilation-process-setup-function |
899 (funcall compilation-process-setup-function)) | 899 (funcall compilation-process-setup-function)) |
900 ;; Start the compilation. | 900 ;; Start the compilation. |
901 (if (fboundp 'start-process) | 901 (if (fboundp 'start-process) |
902 (let* ((process-environment | 902 (let* ((process-environment process-environment) |
903 ;; Don't override users' setting of $EMACS. | |
904 (if (getenv "EMACS") | |
905 process-environment | |
906 (cons "EMACS=t" process-environment))) | |
907 (proc (start-process-shell-command (downcase mode-name) | 903 (proc (start-process-shell-command (downcase mode-name) |
908 outbuf | 904 outbuf |
909 command))) | 905 command))) |
906 ;; Set the terminal type | |
907 (setq process-environment | |
908 (if (and (boundp 'system-uses-terminfo) | |
909 system-uses-terminfo) | |
910 (list "TERM=dumb" "TERMCAP=" | |
911 (format "COLUMNS=%d" (window-width))) | |
912 (list "TERM=emacs" | |
913 (format "TERMCAP=emacs:co#%d:tc=unknown:" | |
914 (window-width))))) | |
915 ;; Set the EMACS variable, but | |
916 ;; don't override users' setting of $EMACS. | |
917 (if (getenv "EMACS") | |
918 (setq process-environment | |
919 (cons "EMACS=t" process-environment))) | |
910 (set-process-sentinel proc 'compilation-sentinel) | 920 (set-process-sentinel proc 'compilation-sentinel) |
911 (set-process-filter proc 'compilation-filter) | 921 (set-process-filter proc 'compilation-filter) |
912 (set-marker (process-mark proc) (point) outbuf) | 922 (set-marker (process-mark proc) (point) outbuf) |
913 (setq compilation-in-progress | 923 (setq compilation-in-progress |
914 (cons proc compilation-in-progress))) | 924 (cons proc compilation-in-progress))) |