From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 26 Feb 1994 02:24:51 +0000 (+0000)
Subject: (comint-exec-1): Force a local copy of the environment.
X-Git-Tag: emacs-19.34~9757
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e009771e2e2622035b20880806a98bf10ed49e1c;p=emacs.git

(comint-exec-1): Force a local copy of the environment.
---

diff --git a/lisp/comint.el b/lisp/comint.el
index b24763810f5..0bb6116c31a 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -574,7 +574,7 @@ buffer.  The hook `comint-exec-hook' is run after each exec."
 ;;; the appropriate environment.
 
 (defun comint-exec-1 (name buffer command switches)
-  (let ((process-environment process-environment))
+  (let ((process-environment (copy-sequence process-environment)))
     (setenv "TERMCAP" (format "emacs:co#%d:tc=unknown" (frame-width)))
     (setenv "TERM" "emacs")
     (setenv "EMACS" "t")