]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/emacs-lisp/bytecomp.el: Tweak last change
authorStefan Monnier <monnier@iro.umontreal.ca>
Fri, 19 Jan 2018 16:29:13 +0000 (11:29 -0500)
committerStefan Monnier <monnier@iro.umontreal.ca>
Fri, 19 Jan 2018 16:29:13 +0000 (11:29 -0500)
(byte-compile-file): Move comment closer to the code it describes.

lisp/emacs-lisp/bytecomp.el

index 3c9c62eb23d92378ca53662460241fa4a5c12453..700a7c16b587ac3566b4aad6db884403cd0596d7 100644 (file)
@@ -1933,15 +1933,15 @@ 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
-                        ;; 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)
+                          ;; 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))