Function: org-lint-undefined-footnote-reference

org-lint-undefined-footnote-reference is a byte-compiled function defined in org-lint.el.gz.

Signature

(org-lint-undefined-footnote-reference AST)

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-lint.el.gz
(defun org-lint-undefined-footnote-reference (ast)
  (let ((definitions
          (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
      (lambda (f)
	(let ((label (org-element-property :label f)))
	  (and (eq 'standard (org-element-property :type f))
	       (not (member label definitions))
	       (list (org-element-property :begin f)
		     (format "Missing definition for footnote [%s]"
			     label))))))))