浏览代码

Merge branch 'maint'

Bastien Guerry 12 年之前
父节点
当前提交
f48605c878
共有 1 个文件被更改,包括 3 次插入0 次删除
  1. 3 0
      lisp/org-mobile.el

+ 3 - 0
lisp/org-mobile.el

@@ -1070,6 +1070,9 @@ be returned that indicates what went wrong."
      ((eq what 'addheading)
       (if (org-on-heading-p) ; if false we are in top-level of file
 	  (progn
+	    ;; Workaround a `org-insert-heading-respect-content' bug
+	    ;; which prevents correct insertion when point is invisible
+	    (org-show-subtree)
 	    (end-of-line 1)
 	    (org-insert-heading-respect-content '(4) t)
 	    (org-demote))