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

(comint-exec-1): Set EMACS and INSIDE_EMACS to t.

Browse source
This commit is contained in:
Chong Yidong 2006-11-18 21:01:33 +00:00
parent e725507a30
commit cfefbbf440
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/comint.el
View file

@ -769,7 +769,8 @@ buffer. The hook `comint-exec-hook' is run after each exec."
(list "TERM=emacs"
(format "TERMCAP=emacs:co#%d:tc=unknown:" (window-width))))
(unless (getenv "EMACS")
(list (concat "EMACS=" invocation-directory invocation-name)))
(list "EMACS=t"))
(list "INSIDE_EMACS=t")
process-environment))
(default-directory
(if (file-accessible-directory-p default-directory)