Merge branch 'maint'
This commit is contained in:
commit
791a8d6bcc
|
@ -1070,7 +1070,7 @@ be returned that indicates what went wrong."
|
||||||
(if (org-on-heading-p) ; if false we are in top-level of file
|
(if (org-on-heading-p) ; if false we are in top-level of file
|
||||||
(progn
|
(progn
|
||||||
(end-of-line 1)
|
(end-of-line 1)
|
||||||
(org-insert-heading-respect-content)
|
(org-insert-heading-respect-content t)
|
||||||
(org-demote))
|
(org-demote))
|
||||||
(beginning-of-line)
|
(beginning-of-line)
|
||||||
(insert "* "))
|
(insert "* "))
|
||||||
|
|
|
@ -7445,12 +7445,14 @@ This is a list with the following elements:
|
||||||
(org-move-subtree-down)
|
(org-move-subtree-down)
|
||||||
(end-of-line 1))
|
(end-of-line 1))
|
||||||
|
|
||||||
(defun org-insert-heading-respect-content ()
|
(defun org-insert-heading-respect-content (invisible-ok)
|
||||||
(interactive)
|
"Insert heading with `org-insert-heading-respect-content' set to t."
|
||||||
|
(interactive "P")
|
||||||
(let ((org-insert-heading-respect-content t))
|
(let ((org-insert-heading-respect-content t))
|
||||||
(org-insert-heading t)))
|
(org-insert-heading t invisible-ok)))
|
||||||
|
|
||||||
(defun org-insert-todo-heading-respect-content (&optional force-state)
|
(defun org-insert-todo-heading-respect-content (&optional force-state)
|
||||||
|
"Insert TODO heading with `org-insert-heading-respect-content' set to t."
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
(let ((org-insert-heading-respect-content t))
|
(let ((org-insert-heading-respect-content t))
|
||||||
(org-insert-todo-heading force-state t)))
|
(org-insert-todo-heading force-state t)))
|
||||||
|
|
Loading…
Reference in New Issue