tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Fix fa24cd541 again

This commit is contained in:
Bastien 2020-02-14 08:36:54 +01:00
parent 66810d2121
commit 29f44df758
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org.el
View File

@ -216,12 +216,12 @@ and then loads the resulting file using `load-file'. With
optional prefix argument COMPILE, the tangled Emacs Lisp file is
byte-compiled before it is loaded."
(interactive "fFile to load: \nP")
(let* ((file (file-truename file))
(tangled-file (concat (file-name-sans-extension file) ".el")))
(let ((tangled-file (concat (file-name-sans-extension file) ".el")))
;; Tangle only if the Org file is newer than the Elisp file.
(unless (org-file-newer-than-p
tangled-file
(file-attribute-modification-time (file-attributes file)))
(file-attribute-modification-time
(file-attributes (file-truename file))))
(org-babel-tangle-file file tangled-file "emacs-lisp"))
(if compile
(progn