Mercurial > emacs
comparison lisp/progmodes/compile.el @ 38532:d00c83b7f2e8
(compile-internal): If EMACS is already
defined in the environment, don't override its value.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Mon, 23 Jul 2001 15:23:03 +0000 |
| parents | 864c2b4076f8 |
| children | 75fdf7bea836 |
comparison
equal
deleted
inserted
replaced
| 38531:393c8e5512ee | 38532:d00c83b7f2e8 |
|---|---|
| 803 (compilation-set-window-height outwin) | 803 (compilation-set-window-height outwin) |
| 804 (if compilation-process-setup-function | 804 (if compilation-process-setup-function |
| 805 (funcall compilation-process-setup-function)) | 805 (funcall compilation-process-setup-function)) |
| 806 ;; Start the compilation. | 806 ;; Start the compilation. |
| 807 (if (fboundp 'start-process) | 807 (if (fboundp 'start-process) |
| 808 (let* ((process-environment (cons "EMACS=t" process-environment)) | 808 (let* ((process-environment |
| 809 ;; Don't override users' setting of $EMACS. | |
| 810 (if (getenv "EMACS") | |
| 811 process-environment | |
| 812 (cons "EMACS=t" process-environment))) | |
| 809 (proc (start-process-shell-command (downcase mode-name) | 813 (proc (start-process-shell-command (downcase mode-name) |
| 810 outbuf | 814 outbuf |
| 811 command))) | 815 command))) |
| 812 (set-process-sentinel proc 'compilation-sentinel) | 816 (set-process-sentinel proc 'compilation-sentinel) |
| 813 (set-process-filter proc 'compilation-filter) | 817 (set-process-filter proc 'compilation-filter) |