# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 995901783 0
# Node ID d00c83b7f2e882d9ab8a79bd703bf14fcb58fefd
# Parent  393c8e5512ee0acca7d52b5245e36ee61e8c4970
(compile-internal): If EMACS is already
defined in the environment, don't override its value.

diff -r 393c8e5512ee -r d00c83b7f2e8 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Mon Jul 23 14:47:42 2001 +0000
+++ b/lisp/progmodes/compile.el	Mon Jul 23 15:23:03 2001 +0000
@@ -805,7 +805,11 @@
 	    (funcall compilation-process-setup-function))
 	;; Start the compilation.
 	(if (fboundp 'start-process)
-	    (let* ((process-environment (cons "EMACS=t" process-environment))
+	    (let* ((process-environment
+		    ;; Don't override users' setting of $EMACS.
+		    (if (getenv "EMACS")
+			process-environment
+		      (cons "EMACS=t" process-environment)))
 		   (proc (start-process-shell-command (downcase mode-name)
 						      outbuf
 						      command)))