tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org.el (org-insert-heading, org-insert-todo-heading): C-u C-u inserts at the end of the parent subtree

Browse source 
* org.el (org-insert-heading, org-insert-todo-heading): A
double prefix arg force the insertion of the subtree at the
end of the parent subtree.

Thanks to Esben Stien for asking this.
This commit is contained in:
Bastien Guerry 2012-12-22 18:47:27 +01:00
parent 8fddddcbc8
commit 8a78d1790e
1 changed files with 11 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/org.el
View file

@ -7192,6 +7192,9 @@ current headline. If point is not at the beginning, split the line,
create the new headline with the text in the current line after point
\(but see also the variable `org-M-RET-may-split-line').
With a double prefix arg, force the heading to be inserted at the
end of the parent subtree.
When INVISIBLE-OK is set, stop at invisible headlines when going back.
This is important for non-interactive uses of the command."
(interactive "P")
@ -7259,7 +7262,10 @@ This is important for non-interactive uses of the command."
tags pos)
(cond
(org-insert-heading-respect-content
(org-end-of-subtree nil t)
(if (not (equal force-heading '(16)))
(org-end-of-subtree nil t)
(org-up-heading-safe)
(org-end-of-subtree nil t))
(when (featurep 'org-inlinetask)
(while (and (not (eobp))
(looking-at "\\(\\*+\\)[ \t]+")
@ -7371,10 +7377,12 @@ This is a list with the following elements:
(defun org-insert-todo-heading (arg &optional force-heading)
"Insert a new heading with the same level and TODO state as current heading.
If the heading has no TODO state, or if the state is DONE, use the first
state (TODO by default). Also with prefix arg, force first state."
state (TODO by default). Also one prefix arg, force first state. With two
prefix args, force inserting at the end of the parent subtree."
(interactive "P")
(when (or force-heading (not (org-insert-item 'checkbox)))
(org-insert-heading force-heading)
(org-insert-heading (or (and (equal arg '(16)) '(16))
force-heading))
(save-excursion
(org-back-to-heading)
(outline-previous-heading)