|
@@ -1070,6 +1070,9 @@ be returned that indicates what went wrong."
|
|
|
((eq what 'addheading)
|
|
((eq what 'addheading)
|
|
|
(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
|
|
|
|
|
+ ;; Workaround a `org-insert-heading-respect-content' bug
|
|
|
|
|
+ ;; which prevents correct insertion when point is invisible
|
|
|
|
|
+ (org-show-subtree)
|
|
|
(end-of-line 1)
|
|
(end-of-line 1)
|
|
|
(org-insert-heading-respect-content '(4) t)
|
|
(org-insert-heading-respect-content '(4) t)
|
|
|
(org-demote))
|
|
(org-demote))
|