Browse Source

Merge branch 'maint'

Nicolas Goaziou 11 months ago
parent
commit
a68d117459
2 changed files with 7 additions and 1 deletions
  1. 1 1
      lisp/org-lint.el
  2. 6 0
      testing/lisp/test-org-lint.el

+ 1 - 1
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]"

+ 6 - 0
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 ()