tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-footnote: Small refactoring 

* lisp/org-footnote.el (org-footnote-renumber-fn:N): Small
  refactoring.
This commit is contained in:
Nicolas Goaziou 2011-10-01 08:57:33 +02:00
parent 0e9d401519
commit 0fff59cd43
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org-footnote.el
View File

@ -894,8 +894,9 @@ If LABEL is non-nil, delete that footnote instead."
(save-excursion
(goto-char (match-beginning 0))
;; Ensure match is a footnote reference or definition.
(when (or (and (bolp) (save-match-data (org-footnote-at-definition-p)))
(save-match-data (org-footnote-at-reference-p)))
(when (save-match-data (if (bolp)
(org-footnote-at-definition-p)
(org-footnote-at-reference-p)))
(let ((new-val (or (cdr (assoc (match-string 1) map))
(number-to-string (incf n)))))
(unless (assoc (match-string 1) map)