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

[gnu-emacs] / lisp / progmodes / compile.el

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 7e326e9b62a4c074c294231c7993b4fbb0ad1292..c3c6b48f1c86da8506da677b1ac1db589273ac7d 100644 (file)
--- 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)