Commit 2bb240a9 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent e00b4260
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment