From 2bb240a98c8a15533f3bc7540e06eab93f7ea2eb Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 16 Sep 1994 23:54:06 +0000 Subject: [PATCH] (compile-internal): Set EMACS=t in process-environment. --- lisp/progmodes/compile.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 7e326e9b62..c3c6b48f1c 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -383,9 +383,10 @@ Returns the compilation buffer created." (compilation-set-window-height outwin) ;; Start the compilation. (if (fboundp 'start-process) - (let ((proc (start-process-shell-command (downcase mode-name) - outbuf - command))) + (let* ((process-environment (cons "EMACS=t" process-environment)) + (proc (start-process-shell-command (downcase mode-name) + outbuf + command))) (set-process-sentinel proc 'compilation-sentinel) (set-process-filter proc 'compilation-filter) (set-marker (process-mark proc) (point) outbuf) -- 2.39.2