瀏覽代碼

Merge branch 'maint'

Nicolas Goaziou 7 年之前
父節點
當前提交
a68d117459
共有 2 個文件被更改,包括 7 次插入1 次删除
  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 ()