diff options
| author | John Paul Wallington <jpw@pobox.com> | 2003-07-28 16:05:36 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2003-07-28 16:05:36 +0000 |
| commit | 48c06d9df88230332f540ef15d24a4d73c274b1e (patch) | |
| tree | 4a1f2320dea8a256e01db295baa8ab1d3bb09ee1 /lisp/progmodes | |
| parent | 8e529cc9e76638f3069c5a6a1570ca5602a25b09 (diff) | |
| download | emacs-48c06d9df88230332f540ef15d24a4d73c274b1e.tar.gz | |
2003-07-28 Tak Ota <Takaaki.Ota@am.sony.com> (tiny change)
* progmodes/compile.el (compilation-environment): New user variable.
(compile-internal): Respect it.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/compile.el | 7 |
1 files changed, 7 insertions, 0 deletions
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=" |