diff options
| author | Marco Wahl <marcowahlsoft@gmail.com> | 2015-12-04 19:25:36 +0100 |
|---|---|---|
| committer | Marco Wahl <marcowahlsoft@gmail.com> | 2015-12-04 19:54:21 +0100 |
| commit | a426abffa55f3b74d0c5fb09e148c1dd0d2a0e7a (patch) | |
| tree | 2266031c7482adaf95db42ddf1ad07da42d7fbc8 | |
| parent | ca7d6f93664b3797c40afa44ac281ecc3f028e5f (diff) | |
| download | org-mode-a426abffa55f3b74d0c5fb09e148c1dd0d2a0e7a.tar.gz | |
org-inlinetask: Fix folding inlinetask children
* org-inlinetask.el(org-inlinetask-goto-end): Position point just at the
end. Do not forward-line.
Fixes org-cycle for state CHILDREN when the children are inlinetasks
which have immediate neigbors.
| -rw-r--r-- | lisp/org-inlinetask.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/org-inlinetask.el b/lisp/org-inlinetask.el index 7e15b44..72469d5 100644 --- a/lisp/org-inlinetask.el +++ b/lisp/org-inlinetask.el @@ -189,17 +189,16 @@ Return point." (inlinetask-re (org-inlinetask-outline-regexp)) (task-end-re (concat inlinetask-re "END[ \t]*$"))) (cond - ((looking-at task-end-re) (forward-line)) + ((looking-at task-end-re)) ((looking-at inlinetask-re) (forward-line) (cond - ((looking-at task-end-re) (forward-line)) + ((looking-at task-end-re)) ((looking-at inlinetask-re)) ((org-inlinetask-in-task-p) - (re-search-forward inlinetask-re nil t) - (forward-line)))) - (t (re-search-forward inlinetask-re nil t) - (forward-line))) + (re-search-forward inlinetask-re nil t)))) + (t (re-search-forward inlinetask-re nil t))) + (end-of-line) (point)))) (defun org-inlinetask-get-task-level () |