(compilation-start): Set EMACS and INSIDE_EMACS to t.

This commit is contained in:
Chong Yidong
2006-11-18 21:01:11 +00:00
parent fdf8f29f58
commit e725507a30

View File

@@ -1069,7 +1069,8 @@ Returns the compilation buffer created."
;; 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))