Przeglądaj źródła

Fix `org-lint-link-to-local-file'.

* lisp/org-lint.el (org-lint-link-to-local-file): 1. Fix call to
`org-attach-expand' being called with point not at the attachment:
link.  2. Fix typo in call to `format'.  File argument had to be
outside the if.
Ihor Radchenko 4 lat temu
rodzic
commit
ab00524fc5
1 zmienionych plików z 4 dodań i 3 usunięć
  1. 4 3
      lisp/org-lint.el

+ 4 - 3
lisp/org-lint.el

@@ -574,15 +574,16 @@ Use :header-args: instead"
 	   (let* ((path (org-element-property :path l))
 		  (file (if (string= type "file")
 			    path
-			  (org-attach-expand path))))
+                          (org-with-point-at (org-element-property :begin l)
+			    (org-attach-expand path)))))
 	     (and (not (file-remote-p file))
 		  (not (file-exists-p file))
 		  (list (org-element-property :begin l)
 			(format (if (org-element-lineage l '(link))
 				    "Link to non-existent image file %S \
 in description"
-				  "Link to non-existent local file %S"
-				  file))))))
+				  "Link to non-existent local file %S")
+                                file)))))
 	  (_ nil))))))
 
 (defun org-lint-non-existent-setupfile-parameter (ast)