# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 779759646 0
# Node ID 6ca3e0d3b7ca3ff2867e495ae63b96fa749b56f7
# Parent  5809c1ce795da7ee59d458ffa090f5e2a26334d9
(compile-internal): Set EMACS=t in process-environment.

diff -r 5809c1ce795d -r 6ca3e0d3b7ca lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Fri Sep 16 23:41:47 1994 +0000
+++ b/lisp/progmodes/compile.el	Fri Sep 16 23:54:06 1994 +0000
@@ -383,9 +383,10 @@
 	(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)