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

Fix tempfile creation when byte compiling

Browse source 
This improves on the recent fix for master failing to build
on FreeBSD.  Suggested by Stefan Monnier in:
https://lists.gnu.org/r/emacs-devel/2018-01/msg00600.html
* lisp/emacs-lisp/bytecomp.el (byte-compile-file):
Put tempfile next to the target file, as was the original intent.
This commit is contained in:
Paul Eggert 2018-01-19 14:37:31 -08:00
parent 7f48a11216
commit 4fd446e9f6
1 changed files with 1 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1933,17 +1933,7 @@ The value is non-nil if there were no errors, nil if errors."
;; parallel bootstrap), it does not risk getting a ;; parallel bootstrap), it does not risk getting a
;; half-finished file. (Bug#4196) ;; half-finished file. (Bug#4196)
(tempfile (tempfile
(if (file-name-absolute-p target-file) (make-temp-file (expand-file-name target-file)))
(make-temp-file target-file)
;; If target-file is relative and includes
;; leading directories, make-temp-file will
;; assume those leading directories exist
;; under temporary-file-directory, which might
;; not be true. So strip leading directories
;; from relative file names before calling
;; make-temp-file.
(make-temp-file
(file-name-nondirectory target-file))))
(default-modes (default-file-modes)) (default-modes (default-file-modes))
(temp-modes (logand default-modes #o600)) (temp-modes (logand default-modes #o600))
(desired-modes (logand default-modes #o666)) (desired-modes (logand default-modes #o666))