diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2020-09-26 10:35:29 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2020-09-26 10:35:29 +0200 |
| commit | 583ecaed477a7959349ccdc0d713039a08d48779 (patch) | |
| tree | b1f3bc70a067b5e29423d2ed03f0f829289af9de | |
| parent | 1d66a58a222612973e3b73acdb0464aa459f526a (diff) | |
| parent | ab00524fc525e81ff09893f8e9b2f170892fc3d2 (diff) | |
| download | org-mode-583ecaed477a7959349ccdc0d713039a08d48779.tar.gz | |
Merge branch 'maint' into master
| -rw-r--r-- | lisp/org-lint.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/org-lint.el b/lisp/org-lint.el index 79ad640..e4e0ef7 100644 --- a/lisp/org-lint.el +++ b/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) |