Mercurial > emacs

comparison lisp/comint.el @ 90718:f1d13e615070

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 523-544) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 168-171) - Update from CVS - Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-150
author Miles Bader <miles@gnu.org>
date Thu, 07 Dec 2006 04:14:14 +0000
parents dbe3f29e61d6 548fcfa53e5e
children 6588c6259dfb
comparison
equal deleted inserted replaced
90717:06937e972ad0 90718:f1d13e615070
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 "EMACS=t")) 772 (list "EMACS=t"))
773 (list "INSIDE_EMACS=t") 773 (list (format "INSIDE_EMACS=%s,comint" emacs-version))
774 process-environment)) 774 process-environment))
775 (default-directory 775 (default-directory
776 (if (file-accessible-directory-p default-directory) 776 (if (file-accessible-directory-p default-directory)
777 default-directory 777 default-directory
778 "/")) 778 "/"))