浏览代码

Merge branch 'hotfix-7.8.06'

Nicolas Goaziou 13 年之前
父节点
当前提交
6427c6aeaa
共有 1 个文件被更改,包括 3 次插入2 次删除
  1. 3 2
      lisp/org-footnote.el

+ 3 - 2
lisp/org-footnote.el

@@ -865,8 +865,9 @@ Return the number of footnotes removed."
 	  (ndef 0))
       (while (re-search-forward def-re nil t)
 	(let ((full-def (org-footnote-at-definition-p)))
-	  (delete-region (nth 1 full-def) (nth 2 full-def)))
-	(incf ndef))
+	  (when full-def
+	    (delete-region (nth 1 full-def) (nth 2 full-def))
+	    (incf ndef))))
       ndef)))
 
 (defun org-footnote-delete (&optional label)