From: John Paul Wallington <jpw@pobox.com>
Date: Mon, 28 Jul 2003 16:06:55 +0000 (+0000)
Subject: 2003-07-28  Tak Ota  <Takaaki.Ota@am.sony.com>  (tiny change)
X-Git-Tag: ttn-vms-21-2-B4~9223
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c20f961b23c9f8e078124df0c14d634ed5167949;p=emacs.git

2003-07-28  Tak Ota  <Takaaki.Ota@am.sony.com>  (tiny change)

	* progmodes/compile.el (compilation-environment): New user variable.
	(compile-internal): Respect it.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b47e08de7d1..0a3289f9f60 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-28  Tak Ota  <Takaaki.Ota@am.sony.com>  (tiny change)
+
+	* progmodes/compile.el (compilation-environment): New user variable.
+	(compile-internal): Respect it.
+
 2003-07-23  Masatake YAMATO  <jet@gyve.org>
 
 	* progmodes/gud.el (gdb-script-font-lock-keywords): 
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 366f1dedc18..a65e04eb1d2 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -593,6 +593,12 @@ This should be a function of three arguments: process status, exit status,
 and exit message; it returns a cons (MESSAGE . MODELINE) of the strings to
 write into the compilation buffer, and to put in its mode line.")
 
+(defvar compilation-environment nil
+  "*List of environment variables for compilation to inherit.
+Each element should be a string of the form ENVVARNAME=VALUE.
+This list is temporarily prepended to `process-environment' prior to
+starting the compilation process.")
+
 ;; History of compile commands.
 (defvar compile-history nil)
 ;; History of grep commands.
@@ -1090,6 +1096,7 @@ Returns the compilation buffer created."
 	(if (not no-async)
  	    (let* ((process-environment
 		    (append
+		     compilation-environment
 		     (if (and (boundp 'system-uses-terminfo)
 			      system-uses-terminfo)
 			 (list "TERM=dumb" "TERMCAP="