diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-08-25 15:25:02 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-08-25 15:25:02 +0200 |
commit | a68d117459c9681dcf8e7df6ebebd6e37fd3dbc2 (patch) | |
tree | a84bd017ffb2f752864f0fc343eeabbc39cfc5dc | |
parent | bae41a277eab4934df0a114de9d4fc164166f0eb (diff) | |
parent | c1b9d38c892f389275e9cf6fb5a5aa12ee981bc7 (diff) | |
download | org-mode-a68d117459c9681dcf8e7df6ebebd6e37fd3dbc2.tar.gz |
Merge branch 'maint'
-rw-r--r-- | lisp/org-lint.el | 2 | ||||
-rw-r--r-- | testing/lisp/test-org-lint.el | 6 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/org-lint.el b/lisp/org-lint.el index aa70029..a79b037 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 005828e..7c4af05 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 () |