diff --git a/lisp/org-lint.el b/lisp/org-lint.el index aa70029c0..a79b03770 100644 --- a/lisp/org-lint.el +++ b/lisp/org-lint.el @@ -739,7 +739,7 @@ Use \"export %s\" instead" (org-element-map ast 'footnote-reference (lambda (f) (let ((label (org-element-property :label f))) - (and label + (and (eq 'standard (org-element-property :type f)) (not (member label definitions)) (list (org-element-property :begin f) (format "Missing definition for footnote [%s]" diff --git a/testing/lisp/test-org-lint.el b/testing/lisp/test-org-lint.el index 005828e4b..7c4af0530 100644 --- a/testing/lisp/test-org-lint.el +++ b/testing/lisp/test-org-lint.el @@ -310,6 +310,12 @@ This is not a node property (org-lint '(undefined-footnote-reference)))) (should-not (org-test-with-temp-text "Text[fn:1]\n[fn:1] Definition" + (org-lint '(undefined-footnote-reference)))) + (should-not + (org-test-with-temp-text "Text[fn:1:inline reference]" + (org-lint '(undefined-footnote-reference)))) + (should-not + (org-test-with-temp-text "Text[fn::anonymous reference]" (org-lint '(undefined-footnote-reference))))) (ert-deftest test-org-lint/unreferenced-footnote-definition ()