[Emacs-diffs] Changes to emacs/lisp/comint.el,v

[Paul Eggert]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Paul Eggert <eggert>    06/09/12 16:43:25

Index: lisp/comint.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/comint.el,v
retrieving revision 1.346
retrieving revision 1.347
diff -u -b -r1.346 -r1.347
--- lisp/comint.el      2 Jun 2006 02:04:15 -0000       1.346
+++ lisp/comint.el      12 Sep 2006 16:43:24 -0000      1.347
@@ -765,7 +765,8 @@
                    (format "COLUMNS=%d" (window-width)))
            (list "TERM=emacs"
                  (format "TERMCAP=emacs:co#%d:tc=unknown:" (window-width))))
-         (if (getenv "EMACS") nil (list "EMACS=t"))
+         (unless (getenv "EMACS")
+           (list (concat "EMACS=" invocation-directory invocation-name)))
          process-environment))
        (default-directory
          (if (file-accessible-directory-p default-directory)