diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2010-02-08 13:17:06 -0700 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2010-02-08 13:17:06 -0700 |
commit | 2829f77e2b63d1f88a05cd290173ed031ae9ddc9 (patch) | |
tree | 2a0e24e57fb95c7c9128dadffe3e6ac31b995f63 | |
parent | b59ebe6ec205248381b33e475fc5c6ebef25bdb7 (diff) | |
download | org-mode-2829f77e2b63d1f88a05cd290173ed031ae9ddc9.tar.gz |
babel: org-babel-load-file no longer fails when `file-truename' returns nil
-rw-r--r-- | contrib/babel/lisp/org-babel-tangle.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/babel/lisp/org-babel-tangle.el b/contrib/babel/lisp/org-babel-tangle.el index cad8cec..dd76195 100644 --- a/contrib/babel/lisp/org-babel-tangle.el +++ b/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 |