From cfefbbf4404963cdf042fb794e0456503aa8b591 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 18 Nov 2006 21:01:33 +0000 Subject: [PATCH] (comint-exec-1): Set EMACS and INSIDE_EMACS to t. --- lisp/comint.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 2.39.5