mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-23 07:18:53 +00:00
Code

Fix more refile bugs

Browse Source
This commit is contained in:
Carsten Dominik 2009-08-05 12:32:56 +02:00
parent 0728025585
commit e5158d35e4
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -2,6 +2,9 @@
* org.el (org-paste-subtree): Test the kill ring entry if it is
going to be used.
(org-copy-subtree): Use `org-forward-same-level'.
(org-forward-same-level): Respect the `invisibe-ok' arg for
back-to-heading.
2009-08-04 Carsten Dominik <carsten.dominik@gmail.com>

4
lisp/org.el
View File

@ -6143,7 +6143,7 @@ useful if the caller implements cut-and-paste as copy-then-paste-then-cut."
(save-excursion (outline-end-of-heading)
(setq folded (org-invisible-p)))
(condition-case nil
(outline-forward-same-level (1- n))
(org-forward-same-level (1- n) t)
(error nil))
(org-end-of-subtree t t))
(org-back-over-empty-lines)
@ -16588,7 +16588,7 @@ This is like outline-next-sibling, but invisible headings are ok."
"Move forward to the arg'th subheading at same level as this one.
Stop at the first and last subheadings of a superior heading."
(interactive "p")
(org-back-to-heading)
(org-back-to-heading invisible-ok)
(org-on-heading-p)
(let* ((level (- (match-end 0) (match-beginning 0) 1))
(re (format "^\\*\\{1,%d\\} " level))