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 b47e08de7d1181fc2d3141b213f3fb322d34b15b..0a3289f9f60751dc8806de6518fabda1109a0f65 100644 (file)
--- 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 366f1dedc180b4aa0e4c875b9c035c15fb51cebe..a65e04eb1d28c41b865080ca9383320c079749af 100644 (file)
--- 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="