feature/native-comp 25332bb 3/4: Fix bytecomp message when native compiling

[Andrea Corallo]

branch: feature/native-comp
commit 25332bb0d396b79b37e6eaf96850ac560eaa55cd
Author: Andrea Corallo <address@hidden>
Commit: Andrea Corallo <address@hidden>

    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 19d9884..9278c92 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)