From f920974f43d8781cc40f46c6886e3baee0993a34 Mon Sep 17 00:00:00 2001 From: Matt Lundin Date: Tue, 8 Mar 2011 06:04:00 +0000 Subject: [PATCH] org-footnote.el: Fix sorting of footnotes. * org-footnote.el (org-footnote-create-definition) (org-insert-footnote-reference-near-definition): Fix sorting of footnotes. --- lisp/org-footnote.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-footnote.el b/lisp/org-footnote.el index b6a9bca7d..f2b348988 100644 --- a/lisp/org-footnote.el +++ b/lisp/org-footnote.el @@ -314,7 +314,7 @@ or new, let the user edit the definition of the footnote." ;; Skip existing footnotes (while (re-search-forward "^[[:space:]]*\\[[^]]+\\] " nil t) (forward-line)) - (insert "[" label "] \n") + (insert "\n[" label "] \n") (goto-char (1- (point))) (message "Edit definition and go back with `C-c &' or, if unique, with `C-c C-c'."))) @@ -500,7 +500,7 @@ ENTRY is (fn-label num-mark definition)." (when (re-search-forward (format ".\\[%s[]:]" (regexp-quote (car entry))) nil t) (org-footnote-goto-local-insertion-point) - (insert (format "\n\n[%s] %s" (car entry) (nth 2 entry)))))) + (insert (format "\n[%s] %s\n" (car entry) (nth 2 entry)))))) (defun org-footnote-goto-local-insertion-point () "Find insertion point for footnote, just before next outline heading."