From f8c4102cc6e65d48e0b9502cc568843a86f92f1c Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 14 Aug 2015 00:54:07 +0200 Subject: [PATCH] org-footnote: Fix positioning when inserting footnotes * lisp/org-footnote.el (org-footnote-new): Fix point when a new footnote triggers sorting. Reported-by: Gerald Wildgruber --- lisp/org-footnote.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/lisp/org-footnote.el b/lisp/org-footnote.el index 739660967..e23e417ee 100644 --- a/lisp/org-footnote.el +++ b/lisp/org-footnote.el @@ -552,13 +552,13 @@ or new, let the user edit the definition of the footnote." (org-footnote-auto-adjust-maybe)) (t (insert "[" label "]") - (let ((l (copy-marker (org-footnote-create-definition label)))) - (org-footnote-auto-adjust-maybe) - (or (ignore-errors (org-footnote-goto-definition label l)) - ;; Since definition was created outside current - ;; scope, edit it remotely. - (progn (set-marker l nil) - (org-edit-footnote-reference)))))))) + (org-footnote-create-definition label) + (org-footnote-auto-adjust-maybe) + (if (ignore-errors (org-footnote-goto-definition label)) + (forward-char) + ;; Definition was created outside current scope: edit it + ;; remotely. + (org-edit-footnote-reference)))))) (defvar org-blank-before-new-entry) ; Silence byte-compiler. (defun org-footnote-create-definition (label)