(compilation-start): Use copy of `process-environment'

created by `copy-sequence' to not override env-vars
in the global `process-environment'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eb833b29c622f842e4b02c0ee12df14f850957a3..044f72d6b22a451d79aef51b4c557b42c24137ac 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -19,12 +19,19 @@
 2004-09-07  Juri Linkov  <juri@jurta.org>
 
        * progmodes/grep.el (grep-highlight-matches): Change default from
-       `t' to `auto-detect', and type from `boolean' to `choice'.
+       `t' to `auto-detect', and type from `boolean' to `choice'.  Doc fix.
        (grep-compute-defaults): Set `grep-highlight-matches' to `t'
        if grep option `--color' is available, or to `nil' otherwise.
+       (grep-process-setup): Call `grep-compute-defaults' if
+       `grep-highlight-matches' is not computed.  Set env-vars only
+       if `grep-highlight-matches' is `t'.
        (grep-use-null-device): Remove redundant type `boolean' (`choice'
        is already defined).
 
+       * progmodes/compile.el (compilation-start): Use copy of
+       `process-environment' created by `copy-sequence' to not
+       modify env-vars in the global `process-environment'.
+
 2004-09-06  Eli Zaretskii  <eliz@gnu.org>
 
        * simple.el (next-error-follow-minor-mode): Fix last change.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 076ffcc8159271dbbfe045061f86f8fa32095e1a..c9f4cf4a596193b7ffc041ff1dd2ba6d83ef37c5 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -878,7 +878,7 @@ Returns the compilation buffer created."
          ;; Set the EMACS variable, but
          ;; don't override users' setting of $EMACS.
          (unless (getenv "EMACS") '("EMACS=t"))
-         process-environment))
+         (copy-sequence process-environment)))
        (thisdir default-directory)
        outwin outbuf)
     (with-current-buffer