mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-11-26 07:33:39 +00:00
Fix refile bug repoted by Jost Burkhardt
This commit is contained in:
parent
e69fe370bd
commit
ac1bf3d6ed
@ -1,6 +1,8 @@
|
|||||||
2008-02-08 Carsten Dominik <dominik@science.uva.nl>
|
2008-02-08 Carsten Dominik <dominik@science.uva.nl>
|
||||||
|
|
||||||
* org.el (org-clock-report): Show the clocktable when found.
|
* org.el (org-clock-report): Show the clocktable when found.
|
||||||
|
(org-refile): Fix positioning bug when `org-reverse-note-order' is
|
||||||
|
nil.
|
||||||
|
|
||||||
2008-02-07 Carsten Dominik <dominik@science.uva.nl>
|
2008-02-07 Carsten Dominik <dominik@science.uva.nl>
|
||||||
|
|
||||||
|
11
org.el
11
org.el
@ -14065,11 +14065,12 @@ heading in the current buffer."
|
|||||||
(goto-char pos)
|
(goto-char pos)
|
||||||
(looking-at outline-regexp)
|
(looking-at outline-regexp)
|
||||||
(setq level (org-get-legal-level (funcall outline-level) 1))
|
(setq level (org-get-legal-level (funcall outline-level) 1))
|
||||||
(goto-char (or (save-excursion
|
(goto-char
|
||||||
(if reversed
|
(if reversed
|
||||||
(outline-next-heading)
|
(outline-next-heading)
|
||||||
(outline-get-next-sibling)))
|
(or (save-excursion (outline-get-next-sibling))
|
||||||
(point-max)))
|
(org-end-of-subtree t t)
|
||||||
|
(point-max))))
|
||||||
(bookmark-set "org-refile-last-stored")
|
(bookmark-set "org-refile-last-stored")
|
||||||
(org-paste-subtree level))))
|
(org-paste-subtree level))))
|
||||||
(org-cut-special)
|
(org-cut-special)
|
||||||
|
Loading…
Reference in New Issue
Block a user