ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'bugfix'

This commit is contained in:
Nicolas Goaziou 2022-02-13 22:14:55 +01:00
parent 27215ac5b5 17e4fe9093
commit 6ac5e0adc8
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-lint.el
View File

@ -829,8 +829,12 @@ Use \"export %s\" instead"
reports)) reports))
(defun org-lint-undefined-footnote-reference (ast) (defun org-lint-undefined-footnote-reference (ast)
(let ((definitions (org-element-map ast 'footnote-definition (let ((definitions
(lambda (f) (org-element-property :label f))))) (org-element-map ast '(footnote-definition footnote-reference)
(lambda (f)
(and (or (eq 'footnote-definition (org-element-type f))
(eq 'inline (org-element-property :type f)))
(org-element-property :label f))))))
(org-element-map ast 'footnote-reference (org-element-map ast 'footnote-reference
(lambda (f) (lambda (f)
(let ((label (org-element-property :label f))) (let ((label (org-element-property :label f)))

3
testing/lisp/test-org-lint.el
View File

@ -378,6 +378,9 @@ This is not a node property
(should-not (should-not
(org-test-with-temp-text "Text[fn:1:inline reference]" (org-test-with-temp-text "Text[fn:1:inline reference]"
(org-lint '(undefined-footnote-reference)))) (org-lint '(undefined-footnote-reference))))
(should-not
(org-test-with-temp-text "Text[fn:1:inline reference] [fn:1]"
(org-lint '(undefined-footnote-reference))))
(should-not (should-not
(org-test-with-temp-text "Text[fn::anonymous reference]" (org-test-with-temp-text "Text[fn::anonymous reference]"
(org-lint '(undefined-footnote-reference))))) (org-lint '(undefined-footnote-reference)))))