Merge branch 'maint'

This commit is contained in:
Bastien Guerry 2013-02-13 19:27:01 +01:00
commit 791a8d6bcc
2 changed files with 6 additions and 4 deletions

View File

@ -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 "* "))

View File

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