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

org-footnote: refactor code

This commit is contained in:
Nicolas Goaziou 2011-08-16 21:59:09 +02:00
parent a8d621c3da
commit 6815e30b62
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org-footnote.el
View File

@ -678,13 +678,12 @@ Additional note on `org-footnote-insert-pos-for-preprocessor':
;; through `org-export-preprocess-string' so ;; through `org-export-preprocess-string' so
;; it is ready to insert in the ;; it is ready to insert in the
;; backend-specific buffer. ;; backend-specific buffer.
(if export-props (if (and export-props def)
(let ((parameters (let ((parameters
(org-combine-plists (org-combine-plists
export-props export-props
'(:todo-keywords t :tags t :priority t)))) '(:todo-keywords t :tags t :priority t))))
(if def (org-export-preprocess-string def parameters))
(org-export-preprocess-string def parameters)))
def) def)
inlinep) ref-table))) inlinep) ref-table)))
;; Remove definition of non-inlined footnotes. ;; Remove definition of non-inlined footnotes.
@ -894,7 +893,10 @@ If LABEL is non-nil, delete that footnote instead."
(push (cons i (number-to-string (incf n))) map))) (push (cons i (number-to-string (incf n))) map)))
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward "\\(\\[fn:\\)\\([0-9]+\\)\\([]:]\\)" nil t) (while (re-search-forward "\\(\\[fn:\\)\\([0-9]+\\)\\([]:]\\)" nil t)
(replace-match (concat "\\1" (cdr (assq (string-to-number (match-string 2)) map)) "\\3"))))))) (replace-match (concat "\\1"
(cdr (assq (string-to-number (match-string 2))
map))
"\\3")))))))
(defun org-footnote-auto-adjust-maybe () (defun org-footnote-auto-adjust-maybe ()
"Renumber and/or sort footnotes according to user settings." "Renumber and/or sort footnotes according to user settings."