mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

Unbreak building Emacs on FreeBSD

Browse Source 
* lisp/emacs-lisp/bytecomp.el (byte-compile-file): Don't create
the temporary file under temporary-file-directory if the file
being compiled is specified by an absolute file name.  This avoids
problems with ACL copying from temporary-file-directory on
FreeBSD.  For the details, see
http://lists.gnu.org/archive/html/emacs-devel/2018-01/msg00513.html.
This commit is contained in:
Eli Zaretskii 2018-01-19 17:31:54 +02:00
parent a41ad3df9f
commit c6c05e2aa9
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 (file-name-nondirectory 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.
(if (file-name-absolute-p target-file)
(make-temp-file target-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))