Commit f3b0a431 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(comint-exec-1): Don't alter EMACS envvar if it's already defined.

parent 3446af9c
......@@ -587,10 +587,11 @@ buffer. The hook `comint-exec-hook' is run after each exec."
;; Some programs that use terminfo get very confused
;; if TERM is not a valid terminal type.
(if (and (boundp 'system-uses-terminfo) system-uses-terminfo)
(list "EMACS=t" "TERM=unknown"
(list "TERM=unknown"
(format "COLUMNS=%d" (frame-width)))
(list "EMACS=t" "TERM=emacs"
(list "TERM=emacs"
(format "TERMCAP=emacs:co#%d:tc=unknown:" (frame-width))))
(if (getenv "EMACS") nil (list "EMACS=t"))
process-environment))
(default-directory
(if (file-directory-p default-directory)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment