Commit c20f961b authored by John Paul Wallington's avatar John Paul Wallington
Browse files

2003-07-28 Tak Ota <Takaaki.Ota@am.sony.com> (tiny change)

	* progmodes/compile.el (compilation-environment): New user variable.
	(compile-internal): Respect it.
parent 17e6d491
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):
......
......@@ -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="
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment