mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1994-09-16 23:54:06 +00:00
parent e00b4260d3
commit 2bb240a98c
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/progmodes/compile.el
View file

@ -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)