浏览代码

Merge branch 'hotfix-7.8.06' of orgmode.org:org-mode into hotfix-7.8.06

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

+ 3 - 2
lisp/org-footnote.el

@@ -864,8 +864,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)