forked from mirrors/org-mode
[export] Raise an error if footnote definition is not found.
* lisp/ox.el (org-export-get-footnote-definition): Raise an error if footnote definition is not found.
This commit is contained in:
parent
5f423f1208
commit
bc9a582f1e
|
@ -3825,12 +3825,12 @@ INFO is the plist used as a communication channel."
|
||||||
(defun org-export-get-footnote-definition (footnote-reference info)
|
(defun org-export-get-footnote-definition (footnote-reference info)
|
||||||
"Return definition of FOOTNOTE-REFERENCE as parsed data.
|
"Return definition of FOOTNOTE-REFERENCE as parsed data.
|
||||||
INFO is the plist used as a communication channel. If no such
|
INFO is the plist used as a communication channel. If no such
|
||||||
definition can be found, return \"DEFINITION NOT FOUND\"."
|
definition can be found, raise an error."
|
||||||
(let ((label (org-element-property :label footnote-reference)))
|
(let ((label (org-element-property :label footnote-reference)))
|
||||||
(or (if label
|
(or (if label
|
||||||
(cdr (assoc label (plist-get info :footnote-definition-alist)))
|
(cdr (assoc label (plist-get info :footnote-definition-alist)))
|
||||||
(org-element-contents footnote-reference))
|
(org-element-contents footnote-reference))
|
||||||
"DEFINITION NOT FOUND.")))
|
(error "Definition not found for footnote %s" label))))
|
||||||
|
|
||||||
(defun org-export-get-footnote-number (footnote info)
|
(defun org-export-get-footnote-number (footnote info)
|
||||||
"Return number associated to a footnote.
|
"Return number associated to a footnote.
|
||||||
|
|
Loading…
Reference in New Issue