* lisp/emacs-lisp/bytecomp.el: Guard against double native compilation.

This commit is contained in:
Andrea Corallo 2020-08-05 08:47:56 +02:00
parent 12a982d978
commit dd814b0a58

View file

@ -5269,9 +5269,10 @@ and corresponding effects."
(let ((byte-optimize nil) ; do it fast
(byte-compile-warnings nil))
(mapc (lambda (x)
(or noninteractive (message "compiling %s..." x))
(byte-compile x)
(or noninteractive (message "compiling %s...done" x)))
(unless (subr-native-elisp-p x)
(or noninteractive (message "compiling %s..." x))
(byte-compile x)
(or noninteractive (message "compiling %s...done" x))))
'(byte-compile-normal-call
byte-compile-form
byte-compile-body