# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1163883671 0
# Node ID 636627b25f707f210e10dcd9569fca63d6311bf0
# Parent  8580dcf86c2c489e8b4c72790ab7072ec7cf2f44
(compilation-start): Set EMACS and INSIDE_EMACS to t.

diff -r 8580dcf86c2c -r 636627b25f70 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Sat Nov 18 21:00:35 2006 +0000
+++ b/lisp/progmodes/compile.el	Sat Nov 18 21:01:11 2006 +0000
@@ -1069,7 +1069,8 @@
 	      ;; Set the EMACS variable, but
 	      ;; don't override users' setting of $EMACS.
 	      (unless (getenv "EMACS")
-		(list (concat "EMACS=" invocation-directory invocation-name)))
+		(list "EMACS=t"))
+	      (list "INSIDE_EMACS=t")
 	      (copy-sequence process-environment))))
 	(set (make-local-variable 'compilation-arguments)
 	     (list command mode name-function highlight-regexp))