[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp dd814b0 2/2: * lisp/emacs-lisp/bytecomp.el: Guard ag
From: |
Andrea Corallo |
Subject: |
feature/native-comp dd814b0 2/2: * lisp/emacs-lisp/bytecomp.el: Guard against double native compilation. |
Date: |
Sun, 9 Aug 2020 09:27:23 -0400 (EDT) |
branch: feature/native-comp
commit dd814b0a58aebe12168ffde946860e851ecf2b5b
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* 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 c5b086f..20a481a 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