From dd814b0a58aebe12168ffde946860e851ecf2b5b Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Wed, 5 Aug 2020 08:47:56 +0200 Subject: [PATCH] * lisp/emacs-lisp/bytecomp.el: Guard against double native compilation. --- lisp/emacs-lisp/bytecomp.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index c5b086f91a0..20a481a8a1c 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -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 -- 2.39.5