ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'maint' into master

This commit is contained in:
Nicolas Goaziou 2020-09-26 10:35:29 +02:00
parent 1d66a58a22 ab00524fc5
commit 583ecaed47
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org-lint.el
View File

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