diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-08-05 08:47:56 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-08-09 15:03:53 +0200 |
| commit | dd814b0a58aebe12168ffde946860e851ecf2b5b (patch) | |
| tree | c1dba32626ea52cc916418e142cc5504bfa21254 /lisp/emacs-lisp | |
| parent | 12a982d9789052d8e85efcacb4b311f4876c882a (diff) | |
| download | emacs-dd814b0a58aebe12168ffde946860e851ecf2b5b.tar.gz emacs-dd814b0a58aebe12168ffde946860e851ecf2b5b.tar.bz2 emacs-dd814b0a58aebe12168ffde946860e851ecf2b5b.zip | |
* lisp/emacs-lisp/bytecomp.el: Guard against double native compilation.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 7 |
1 files 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 |