diff options
| author | Andrea Corallo <akrl@sdf.org> | 2019-12-29 15:56:49 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-01-01 11:38:18 +0100 |
| commit | 037b9897a464bf25ef9587ee860cc7f20376a97c (patch) | |
| tree | 34ec636cae051292f07f4914536ecc8e09bc1f9f /lisp/emacs-lisp/bytecomp.el | |
| parent | e666bf781f1d3d74068e8d2b505e35dd75b5b423 (diff) | |
| download | emacs-037b9897a464bf25ef9587ee860cc7f20376a97c.tar.gz emacs-037b9897a464bf25ef9587ee860cc7f20376a97c.tar.bz2 emacs-037b9897a464bf25ef9587ee860cc7f20376a97c.zip | |
add batch-byte-native-compile-for-bootstrap
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 3e354951ea3..19d9884c3fc 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -570,7 +570,9 @@ Each element is (INDEX . VALUE)") "All other top level forms." form) (defvar byte-native-compiling nil - "t while native compiling.") + "Non nil while native compiling.") +(defvar byte-native-always-write-elc nil + "Always write the elc file also while native compiling.") (defvar byte-to-native-lap nil "A-list to accumulate LAP. Each pair is (NAME . LAP)") @@ -2032,7 +2034,8 @@ The value is non-nil if there were no errors, nil if errors." ;; emacs-lisp files in the build tree are ;; recompiled). Previously this was accomplished by ;; deleting target-file before writing it. - (if byte-native-compiling + (if (and byte-native-compiling + (not byte-native-always-write-elc)) (delete-file tempfile) (rename-file tempfile target-file t))) (or noninteractive (message "Wrote %s" target-file))) |