Mercurial > emacs

comparison lisp/progmodes/compile.el @ 42339:fb68db8b6578

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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)))