# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1059408336 0
# Node ID d11e55dcc374d6e80d2cb4498897b5722ccceb79
# Parent  f0369cfaab3b7a3c1f78c0576cf710a2b626f3ec
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 -r f0369cfaab3b -r d11e55dcc374 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Mon Jul 28 13:05:25 2003 +0000
+++ b/lisp/progmodes/compile.el	Mon Jul 28 16:05:36 2003 +0000
@@ -593,6 +593,12 @@
 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 @@
 	(if (not no-async)
  	    (let* ((process-environment
 		    (append
+		     compilation-environment
 		     (if (and (boundp 'system-uses-terminfo)
 			      system-uses-terminfo)
 			 (list "TERM=dumb" "TERMCAP="