瀏覽代碼

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

Eric Schulte 15 年之前
父節點
當前提交
2829f77e2b
共有 1 個文件被更改,包括 2 次插入2 次删除
  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