diff options
| author | Karl Heuer | 1994-02-26 02:24:51 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-02-26 02:24:51 +0000 |
| commit | e009771e2e2622035b20880806a98bf10ed49e1c (patch) | |
| tree | cd4d9d69dc3522a2ce677956802308efdfa51d72 | |
| parent | 681410a1fbde0051d9f66cd4f72c25341bab0c5e (diff) | |
| download | emacs-e009771e2e2622035b20880806a98bf10ed49e1c.tar.gz emacs-e009771e2e2622035b20880806a98bf10ed49e1c.zip | |
(comint-exec-1): Force a local copy of the environment.
| -rw-r--r-- | lisp/comint.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 574 | ;;; the appropriate environment. | 574 | ;;; the appropriate environment. |
| 575 | 575 | ||
| 576 | (defun comint-exec-1 (name buffer command switches) | 576 | (defun comint-exec-1 (name buffer command switches) |
| 577 | (let ((process-environment process-environment)) | 577 | (let ((process-environment (copy-sequence process-environment))) |
| 578 | (setenv "TERMCAP" (format "emacs:co#%d:tc=unknown" (frame-width))) | 578 | (setenv "TERMCAP" (format "emacs:co#%d:tc=unknown" (frame-width))) |
| 579 | (setenv "TERM" "emacs") | 579 | (setenv "TERM" "emacs") |
| 580 | (setenv "EMACS" "t") | 580 | (setenv "EMACS" "t") |