From 9a5682477a2f4f18fa1c0c05820a1d5ccc5bd861 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 23 Oct 2002 17:45:18 +0000 Subject: [PATCH] (compile-internal): Update process-environment before calling start-process. --- lisp/progmodes/compile.el | 29 ++++++++++++++--------------- 1 file changed, 14 insertions(+), 15 deletions(-) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index c26044dd9ed..a13796e1d5b 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -826,24 +826,23 @@ Returns the compilation buffer created." (funcall compilation-process-setup-function)) ;; Start the compilation. (if (fboundp 'start-process) - (let* ((process-environment process-environment) + (let* ((process-environment + (append + (if (and (boundp 'system-uses-terminfo) + system-uses-terminfo) + (list "TERM=dumb" "TERMCAP=" + (format "COLUMNS=%d" (window-width))) + (list "TERM=emacs" + (format "TERMCAP=emacs:co#%d:tc=unknown:" + (window-width)))) + ;; Set the EMACS variable, but + ;; don't override users' setting of $EMACS. + (if (getenv "EMACS") + process-environment + (cons "EMACS=t" process-environment)))) (proc (start-process-shell-command (downcase mode-name) outbuf command))) - ;; Set the terminal type - (setq process-environment - (if (and (boundp 'system-uses-terminfo) - system-uses-terminfo) - (list "TERM=dumb" "TERMCAP=" - (format "COLUMNS=%d" (window-width))) - (list "TERM=emacs" - (format "TERMCAP=emacs:co#%d:tc=unknown:" - (window-width))))) - ;; Set the EMACS variable, but - ;; don't override users' setting of $EMACS. - (or (getenv "EMACS") - (setq process-environment - (cons "EMACS=t" process-environment))) (set-process-sentinel proc 'compilation-sentinel) (set-process-filter proc 'compilation-filter) (set-marker (process-mark proc) (point) outbuf) -- 2.39.2