593 |
and exit message; it returns a cons (MESSAGE . MODELINE) of the strings to |
and exit message; it returns a cons (MESSAGE . MODELINE) of the strings to |
594 |
write into the compilation buffer, and to put in its mode line.") |
write into the compilation buffer, and to put in its mode line.") |
595 |
|
|
596 |
|
(defvar compilation-environment nil |
597 |
|
"*List of environment variables for compilation to inherit. |
598 |
|
Each element should be a string of the form ENVVARNAME=VALUE. |
599 |
|
This list is temporarily prepended to `process-environment' prior to |
600 |
|
starting the compilation process.") |
601 |
|
|
602 |
;; History of compile commands. |
;; History of compile commands. |
603 |
(defvar compile-history nil) |
(defvar compile-history nil) |
604 |
;; History of grep commands. |
;; History of grep commands. |
1096 |
(if (not no-async) |
(if (not no-async) |
1097 |
(let* ((process-environment |
(let* ((process-environment |
1098 |
(append |
(append |
1099 |
|
compilation-environment |
1100 |
(if (and (boundp 'system-uses-terminfo) |
(if (and (boundp 'system-uses-terminfo) |
1101 |
system-uses-terminfo) |
system-uses-terminfo) |
1102 |
(list "TERM=dumb" "TERMCAP=" |
(list "TERM=dumb" "TERMCAP=" |