Browse Source

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 <Gerald.Wildgruber@unibas.ch>
<http://permalink.gmane.org/gmane.emacs.orgmode/99997>
Nicolas Goaziou 9 years ago
parent
commit
f8c4102cc6
1 changed files with 7 additions and 7 deletions
  1. 7 7
      lisp/org-footnote.el

+ 7 - 7
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)