From: Andrea Corallo <akrl@sdf.org>
Date: Wed, 5 Aug 2020 06:47:56 +0000 (+0200)
Subject: * lisp/emacs-lisp/bytecomp.el: Guard against double native compilation.
X-Git-Tag: emacs-28.0.90~2727^2~503
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dd814b0a58aebe12168ffde946860e851ecf2b5b;p=emacs.git

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

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