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

* lisp/emacs-lisp/bytecomp.el: Tweak last change

Browse source 
(byte-compile-file): Move comment closer to the code it describes.
This commit is contained in:
Stefan Monnier 2018-01-19 11:29:13 -05:00
parent c6c05e2aa9
commit 728ded05f6
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1933,6 +1933,8 @@ 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 target-file)
;; If target-file is relative and includes ;; If target-file is relative and includes
;; leading directories, make-temp-file will ;; leading directories, make-temp-file will
;; assume those leading directories exist ;; assume those leading directories exist
@ -1940,8 +1942,6 @@ The value is non-nil if there were no errors, nil if errors."
;; not be true. So strip leading directories ;; not be true. So strip leading directories
;; from relative file names before calling ;; from relative file names before calling
;; make-temp-file. ;; make-temp-file.
(if (file-name-absolute-p target-file)
(make-temp-file target-file)
(make-temp-file (make-temp-file
(file-name-nondirectory target-file)))) (file-name-nondirectory target-file))))
(default-modes (default-file-modes)) (default-modes (default-file-modes))