diff options
author | Bastien Guerry <bzg@altern.org> | 2013-04-11 01:05:26 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-04-11 01:05:26 +0200 |
commit | 5d1025f5ec1ec81fc20e554bd693b34ca052d845 (patch) | |
tree | 2704611e7e069bd6289218923ded9f8fa17f435e | |
parent | 78567ef2d3bd5c11d21d0bf4ed8931da6f1b0258 (diff) | |
download | org-mode-5d1025f5ec1ec81fc20e554bd693b34ca052d845.tar.gz |
org-mobile.el (org-mobile-edit): Insert new headings at the end of the parent subtree
* org-mobile.el (org-mobile-edit): Insert new headings at the
end of the parent subtree. Use `org-at-heading-p' instead of
the obsolete `org-on-heading-p'.
Thanks to James Harkins for reporting this.
-rw-r--r-- | lisp/org-mobile.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index 24a4112..7cdaf34 100644 --- a/lisp/org-mobile.el +++ b/lisp/org-mobile.el @@ -1066,13 +1066,13 @@ be returned that indicates what went wrong." (t (error "Heading changed in MobileOrg and on the computer"))))) ((eq what 'addheading) - (if (org-on-heading-p) ; if false we are in top-level of file + (if (org-at-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-insert-heading-respect-content '(16) t) (org-demote)) (beginning-of-line) (insert "* ")) @@ -1081,7 +1081,7 @@ be returned that indicates what went wrong." ((eq what 'refile) (org-copy-subtree) (org-with-point-at (org-mobile-locate-entry new) - (if (org-on-heading-p) ; if false we are in top-level of file + (if (org-at-heading-p) ; if false we are in top-level of file (progn (setq level (org-get-valid-level (funcall outline-level) 1)) (org-end-of-subtree t t) |