comparison lisp/comint.el @ 6095:c04ea0b0dbc0

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

6094:d55916e75e16

;;; This auxiliary function cranks up the process for comint-exec in
;;; the appropriate environment.

(defun comint-exec-1 (name buffer command switches)
  (let ((process-environment process-environment))
    (setenv "TERMCAP" (format "emacs:co#%d:tc=unknown" (frame-width)))
    (setenv "TERM" "emacs")
    (setenv "EMACS" "t")
    (apply 'start-process name buffer command switches)))


6095:c04ea0b0dbc0

;;; This auxiliary function cranks up the process for comint-exec in
;;; the appropriate environment.

(defun comint-exec-1 (name buffer command switches)
  (let ((process-environment (copy-sequence process-environment)))
    (setenv "TERMCAP" (format "emacs:co#%d:tc=unknown" (frame-width)))
    (setenv "TERM" "emacs")
    (setenv "EMACS" "t")
    (apply 'start-process name buffer command switches)))