Fix bytecomp message when native compiling

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 19d9884c3fc0deeec87369efaae43932dded2973..9278c92d8198b13b2d3877197ea7aa8d5a2482e5 100644 (file)
--- 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)