Mercurial > emacs
comparison lisp/progmodes/compile.el @ 8810:6ca3e0d3b7ca
(compile-internal): Set EMACS=t in process-environment.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 16 Sep 1994 23:54:06 +0000 |
| parents | 15814086be44 |
| children | 2ddf9526b8b8 |
comparison
equal
deleted
inserted
replaced
| 8809:5809c1ce795d | 8810:6ca3e0d3b7ca |
|---|---|
| 381 (or (eq outwin (selected-window)) | 381 (or (eq outwin (selected-window)) |
| 382 (set-window-point outwin (point-min))) | 382 (set-window-point outwin (point-min))) |
| 383 (compilation-set-window-height outwin) | 383 (compilation-set-window-height outwin) |
| 384 ;; Start the compilation. | 384 ;; Start the compilation. |
| 385 (if (fboundp 'start-process) | 385 (if (fboundp 'start-process) |
| 386 (let ((proc (start-process-shell-command (downcase mode-name) | 386 (let* ((process-environment (cons "EMACS=t" process-environment)) |
| 387 outbuf | 387 (proc (start-process-shell-command (downcase mode-name) |
| 388 command))) | 388 outbuf |
| 389 command))) | |
| 389 (set-process-sentinel proc 'compilation-sentinel) | 390 (set-process-sentinel proc 'compilation-sentinel) |
| 390 (set-process-filter proc 'compilation-filter) | 391 (set-process-filter proc 'compilation-filter) |
| 391 (set-marker (process-mark proc) (point) outbuf) | 392 (set-marker (process-mark proc) (point) outbuf) |
| 392 (setq compilation-in-progress | 393 (setq compilation-in-progress |
| 393 (cons proc compilation-in-progress))) | 394 (cons proc compilation-in-progress))) |