Mercurial > emacs

changeset 52061:d11e55dcc374

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2003-07-28 Tak Ota <Takaaki.Ota@am.sony.com> (tiny change) * progmodes/compile.el (compilation-environment): New user variable. (compile-internal): Respect it.
author John Paul Wallington <jpw@pobox.com>
date Mon, 28 Jul 2003 16:05:36 +0000
parents f0369cfaab3b
children 972e1715b479
files lisp/progmodes/compile.el
diffstat 1 files changed, 7 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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="