diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-01-02 22:35:34 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-01-02 23:01:38 +0100 |
| commit | 25332bb0d396b79b37e6eaf96850ac560eaa55cd (patch) | |
| tree | b1254e144413fc9f54d0c68380c787bc973001bf | |
| parent | 3039c55642fbb2feb577e057ee167c2cedc12feb (diff) | |
| download | emacs-25332bb0d396b79b37e6eaf96850ac560eaa55cd.tar.gz emacs-25332bb0d396b79b37e6eaf96850ac560eaa55cd.tar.bz2 emacs-25332bb0d396b79b37e6eaf96850ac560eaa55cd.zip | |
Fix bytecomp message when native compiling
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 6 |
1 files 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) |