diff options
| author | John Paul Wallington <jpw@pobox.com> | 2003-07-28 16:06:55 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2003-07-28 16:06:55 +0000 |
| commit | c20f961b23c9f8e078124df0c14d634ed5167949 (patch) | |
| tree | 268602b2aa671c0c723d9f27ea75205506b384ab /lisp | |
| parent | 17e6d49143a20656f6cd884dd29654b4018d744b (diff) | |
| download | emacs-c20f961b23c9f8e078124df0c14d634ed5167949.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')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/progmodes/compile.el | 7 |
2 files changed, 12 insertions, 0 deletions
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=" |