Pārlūkot izejas kodu

org-footnote: Fix type error when creating a new footnote

* lisp/org-footnote.el (org-footnote-get-definition): Fix type error
  when creating a new footnote.

When footnote definition is new, contents are nil.
Nicolas Goaziou 10 gadi atpakaļ
vecāks
revīzija
8f394624b8
1 mainītis faili ar 12 papildinājumiem un 9 dzēšanām
  1. 12 9
      lisp/org-footnote.el

+ 12 - 9
lisp/org-footnote.el

@@ -350,15 +350,18 @@ If no footnote is found, return nil."
 		(type (org-element-type datum)))
 	   (when (memq type '(footnote-definition footnote-reference))
 	     (throw 'found
-		    (list label
-			  (org-element-property :begin datum)
-			  (org-element-property :end datum)
-			  (replace-regexp-in-string
-			   "[ \t\n]*\\'"
-			   ""
-			   (buffer-substring-no-properties
-			    (org-element-property :contents-begin datum)
-			    (org-element-property :contents-end datum))))))))
+		    (list
+		     label
+		     (org-element-property :begin datum)
+		     (org-element-property :end datum)
+		     (let ((cbeg (org-element-property :contents-begin datum)))
+		       (if (not cbeg) ""
+			 (replace-regexp-in-string
+			  "[ \t\n]*\\'"
+			  ""
+			  (buffer-substring-no-properties
+			   cbeg
+			   (org-element-property :contents-end datum))))))))))
        nil))))
 
 (defun org-footnote-goto-definition (label)