compilation environment

[Tak Ota]

I sometimes encounter situations that I have to set specific list of
environment variables to satisfy foreign compilation tools.  This
often happens while working on an embedded software development
project.  I used to set those environment variables globally by
contaminating whole emacs environment.  Can we add a customization
variable something like below for this purpose so that the effect is
localized?

-Tak

*** compile.el  Tue Jul  8 06:41:13 2003
--- ../../../../../../emacs/emacs-21.3.50/lisp/progmodes/compile.el     Wed Jul 
23 11:02:54 2003
***************
*** 593,598 ****
--- 593,603 ----
  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
+   "Compilation specific custome environment list.
+ 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,1095 ****
--- 1095,1101 ----
        (if (not no-async)
            (let* ((process-environment
                    (append
+                    compilation-environment
                     (if (and (boundp 'system-uses-terminfo)
                              system-uses-terminfo)
                         (list "TERM=dumb" "TERMCAP="