From 25332bb0d396b79b37e6eaf96850ac560eaa55cd Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Thu, 2 Jan 2020 22:35:34 +0100 Subject: [PATCH] Fix bytecomp message when native compiling --- lisp/emacs-lisp/bytecomp.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 19d9884c3fc..9278c92d819 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -2035,10 +2035,12 @@ The value is non-nil if there were no errors, nil if errors." ;; recompiled). Previously this was accomplished by ;; deleting target-file before writing it. (if (and byte-native-compiling - (not byte-native-always-write-elc)) + (null byte-native-always-write-elc)) (delete-file tempfile) (rename-file tempfile target-file t))) - (or noninteractive (message "Wrote %s" target-file))) + (or noninteractive + byte-native-compiling + (message "Wrote %s" target-file))) ;; This is just to give a better error message than write-region (let ((exists (file-exists-p target-file))) (signal (if exists 'file-error 'file-missing) -- 2.39.5