ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bugfix: save-excursion before reading the refile target. 

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> 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.

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