Mercurial > emacs
comparison lisp/comint.el @ 74058:05d799bc0cda
(comint-exec-1): Set EMACS and INSIDE_EMACS to t.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 18 Nov 2006 21:01:33 +0000 |
| parents | 7efd5d5388ea |
| children | 548fcfa53e5e dbe3f29e61d6 |
comparison
equal
deleted
inserted
replaced
| 74057:636627b25f70 | 74058:05d799bc0cda |
|---|---|
| 767 (list "TERM=dumb" "TERMCAP=" | 767 (list "TERM=dumb" "TERMCAP=" |
| 768 (format "COLUMNS=%d" (window-width))) | 768 (format "COLUMNS=%d" (window-width))) |
| 769 (list "TERM=emacs" | 769 (list "TERM=emacs" |
| 770 (format "TERMCAP=emacs:co#%d:tc=unknown:" (window-width)))) | 770 (format "TERMCAP=emacs:co#%d:tc=unknown:" (window-width)))) |
| 771 (unless (getenv "EMACS") | 771 (unless (getenv "EMACS") |
| 772 (list (concat "EMACS=" invocation-directory invocation-name))) | 772 (list "EMACS=t")) |
| 773 (list "INSIDE_EMACS=t") | |
| 773 process-environment)) | 774 process-environment)) |
| 774 (default-directory | 775 (default-directory |
| 775 (if (file-accessible-directory-p default-directory) | 776 (if (file-accessible-directory-p default-directory) |
| 776 default-directory | 777 default-directory |
| 777 "/")) | 778 "/")) |