Browse Source

Fix fa24cd541 again

Bastien 5 năm trước cách đây
mục cha
commit
29f44df758
1 tập tin đã thay đổi với 3 bổ sung3 xóa
  1. 3 3
      lisp/org.el

+ 3 - 3
lisp/org.el

@@ -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