Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
f3b0a431
Commit
f3b0a431
authored
Oct 22, 1995
by
Richard M. Stallman
Browse files
(comint-exec-1): Don't alter EMACS envvar if it's already defined.
parent
3446af9c
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
2 deletions
+3
-2
lisp/comint.el
lisp/comint.el
+3
-2
No files found.
lisp/comint.el
View file @
f3b0a431
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment