Parcourir la source

babel: org-babel-load-file no longer fails when `file-truename' returns nil

Eric Schulte il y a 15 ans
Parent
commit
2829f77e2b
1 fichiers modifiés avec 2 ajouts et 2 suppressions
  1. 2 2
      contrib/babel/lisp/org-babel-tangle.el

+ 2 - 2
contrib/babel/lisp/org-babel-tangle.el

@@ -48,8 +48,8 @@ file using `load-file'."
   (flet ((age (file)
               (time-to-seconds
                (time-subtract (current-time)
-                              (sixth (file-attributes
-                                      (file-truename file)))))))
+                              (sixth (or (file-attributes (file-truename file))
+                                         (file-attributes file)))))))
     (let* ((base-name (file-name-sans-extension file))
            (exported-file (concat base-name ".el")))
       ;; tangle if the org-mode file is newer than the elisp file