mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-27 22:02:52 +00:00
Bugfix: save-excursion before reading the refile target.
Otherwise cursor moves might confuse `org-refile'.
This commit is contained in:
parent
01d84ed000
commit
bfc9e1bcb5
|
@ -1,5 +1,8 @@
|
||||||
2009-07-27 Bastien Guerry <bzg@altern.org>
|
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
|
* org-html.el (org-export-as-html): Bugfix: correctly convert the
|
||||||
footnote reference before the footnote itself.
|
footnote reference before the footnote itself.
|
||||||
|
|
||||||
|
|
|
@ -8464,9 +8464,10 @@ See also `org-refile-use-outline-path' and `org-completion-use-ido'"
|
||||||
(if (equal goto '(16))
|
(if (equal goto '(16))
|
||||||
(org-refile-goto-last-stored)
|
(org-refile-goto-last-stored)
|
||||||
(when (setq it (or rfloc
|
(when (setq it (or rfloc
|
||||||
(org-refile-get-location
|
(save-excursion
|
||||||
(if goto "Goto: " "Refile to: ") default-buffer
|
(org-refile-get-location
|
||||||
org-refile-allow-creating-parent-nodes)))
|
(if goto "Goto: " "Refile to: ") default-buffer
|
||||||
|
org-refile-allow-creating-parent-nodes))))
|
||||||
(setq file (nth 1 it)
|
(setq file (nth 1 it)
|
||||||
re (nth 2 it)
|
re (nth 2 it)
|
||||||
pos (nth 3 it))
|
pos (nth 3 it))
|
||||||
|
|
Loading…
Reference in a new issue