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