From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 16 Sep 1994 23:54:06 +0000 (+0000)
Subject: (compile-internal): Set EMACS=t in process-environment.
X-Git-Tag: emacs-19.34~7044
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2bb240a98c8a15533f3bc7540e06eab93f7ea2eb;p=emacs.git

(compile-internal): Set EMACS=t in process-environment.
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 7e326e9b62a..c3c6b48f1c8 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)