瀏覽代碼

[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.
Aaron Ecay 10 年之前
父節點
當前提交
bc9a582f1e
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      lisp/ox.el

+ 2 - 2
lisp/ox.el

@@ -3825,12 +3825,12 @@ INFO is the plist used as a communication channel."
 (defun org-export-get-footnote-definition (footnote-reference info)
   "Return definition of FOOTNOTE-REFERENCE as parsed data.
 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)))
     (or (if label
 	    (cdr (assoc label (plist-get info :footnote-definition-alist)))
 	  (org-element-contents footnote-reference))
-	"DEFINITION NOT FOUND.")))
+	(error "Definition not found for footnote %s" label))))
 
 (defun org-export-get-footnote-number (footnote info)
   "Return number associated to a footnote.