X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/4e23ea53658eabe385b036272b5b9c190a07de96..f8592fee3b4fa2f0363941edcbe35668c4b32ea3:/el/dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 9800b0d..c0d2fe2 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -578,7 +578,7 @@ Pretend they don't exist.  They might be on other display devices."
 
 (defadvice compile (around hack-environment compile activate)
   "Hack the environment inherited by inferiors in the compilation."
-  (let ((process-environment process-environment))
+  (let ((process-environment (copy-tree process-environment)))
     (setenv "LD_PRELOAD" nil)
     ad-do-it))
 
@@ -4033,13 +4033,13 @@ This allows you to pass a list of arguments through `ansi-term'."
 
 (defadvice term-exec-1 (around hack-environment compile activate)
   "Hack the environment inherited by inferiors in the terminal."
-  (let ((process-environment process-environment))
+  (let ((process-environment (copy-tree process-environment)))
     (setenv "LD_PRELOAD" nil)
     ad-do-it))
 
 (defadvice shell (around hack-environment compile activate)
   "Hack the environment inherited by inferiors in the shell."
-  (let ((process-environment process-environment))
+  (let ((process-environment (copy-tree process-environment)))
     (setenv "LD_PRELOAD" nil)
     ad-do-it))