mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

Revert "Fix tempfile creation when byte compiling"

Browse Source 
This reverts commit 4fd446e9f6:
* 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:
Eli Zaretskii 2018-01-20 09:48:22 +02:00
parent 4fd446e9f6
commit b603affa1f
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1933,7 +1933,17 @@ The value is non-nil if there were no errors, nil if errors."
;; parallel bootstrap), it does not risk getting a
;; half-finished file. (Bug#4196)
(tempfile
(make-temp-file (expand-file-name target-file)))
(if (file-name-absolute-p 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))
(temp-modes (logand default-modes #o600))
(desired-modes (logand default-modes #o666))