procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix bytecomp message when native compiling

Browse source
This commit is contained in:
Andrea Corallo 2020-01-02 22:35:34 +01:00
parent 3039c55642
commit 25332bb0d3
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/bytecomp.el
View file

@ -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)