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

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/comint.el b/lisp/comint.el
index 48b747065b5..33195204466 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -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)