Ver código fonte

Merge branch 'maint'

Bastien Guerry 12 anos atrás
pai
commit
f48605c878
1 arquivos alterados com 3 adições e 0 exclusões
  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))