mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Karl Heuer 1994-02-26 02:24:51 +00:00
parent 681410a1fb
commit e009771e2e
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/comint.el
View file

@ -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")