diff options
| author | Chong Yidong | 2006-11-18 21:01:11 +0000 |
|---|---|---|
| committer | Chong Yidong | 2006-11-18 21:01:11 +0000 |
| commit | e725507a302c6c22f2d054d3c8fc359f1446d1d2 (patch) | |
| tree | 303fc62c94472fb55a9b602b7c82dc9a7f3362de | |
| parent | fdf8f29f58a72458c24995e8eb6844b3412581ad (diff) | |
| download | emacs-e725507a302c6c22f2d054d3c8fc359f1446d1d2.tar.gz emacs-e725507a302c6c22f2d054d3c8fc359f1446d1d2.zip | |
(compilation-start): Set EMACS and INSIDE_EMACS to t.
| -rw-r--r-- | lisp/progmodes/compile.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 15346be53c7..cc1fe1ef827 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -1069,7 +1069,8 @@ Returns the compilation buffer created." | |||
| 1069 | ;; Set the EMACS variable, but | 1069 | ;; Set the EMACS variable, but |
| 1070 | ;; don't override users' setting of $EMACS. | 1070 | ;; don't override users' setting of $EMACS. |
| 1071 | (unless (getenv "EMACS") | 1071 | (unless (getenv "EMACS") |
| 1072 | (list (concat "EMACS=" invocation-directory invocation-name))) | 1072 | (list "EMACS=t")) |
| 1073 | (list "INSIDE_EMACS=t") | ||
| 1073 | (copy-sequence process-environment)))) | 1074 | (copy-sequence process-environment)))) |
| 1074 | (set (make-local-variable 'compilation-arguments) | 1075 | (set (make-local-variable 'compilation-arguments) |
| 1075 | (list command mode name-function highlight-regexp)) | 1076 | (list command mode name-function highlight-regexp)) |