From 037b9897a464bf25ef9587ee860cc7f20376a97c Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 29 Dec 2019 15:56:49 +0100 Subject: add batch-byte-native-compile-for-bootstrap --- lisp/emacs-lisp/bytecomp.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'lisp/emacs-lisp/bytecomp.el') 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))) -- cgit v1.2.3