mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-17 10:06:26 +00:00
Code Releases Activity

Bugfix: save-excursion before reading the refile target.

Browse source 
Otherwise cursor moves might confuse `org-refile'.
This commit is contained in:
Bastien Guerry 2009-07-27 18:33:06 +08:00
parent 01d84ed000
commit bfc9e1bcb5
2 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2009-07-27 Bastien Guerry <bzg@altern.org>
* org.el (org-refile): Bugfix: save-excursion before reading the
refile target, otherwise cursor moves might confuse `org-refile'.
* org-html.el (org-export-as-html): Bugfix: correctly convert the
footnote reference before the footnote itself.

7
lisp/org.el
View file

@ -8464,9 +8464,10 @@ See also `org-refile-use-outline-path' and `org-completion-use-ido'"
(if (equal goto '(16))
(org-refile-goto-last-stored)
(when (setq it (or rfloc
(org-refile-get-location
(if goto "Goto: " "Refile to: ") default-buffer
org-refile-allow-creating-parent-nodes)))
(save-excursion
(org-refile-get-location
(if goto "Goto: " "Refile to: ") default-buffer
org-refile-allow-creating-parent-nodes))))
(setq file (nth 1 it)
re (nth 2 it)
pos (nth 3 it))