inlinetask: Fix folding of directly consecutive inlinetask children
This commit is contained in:
parent
b29a972307
commit
e401afffde
|
@ -334,7 +334,9 @@ This function is meant to be used in `org-cycle-hook'."
|
||||||
(org-inlinetask-goto-end)))))
|
(org-inlinetask-goto-end)))))
|
||||||
(`children
|
(`children
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(while (and (outline-next-heading) (org-inlinetask-at-task-p))
|
(while
|
||||||
|
(or (org-inlinetask-at-task-p)
|
||||||
|
(and (outline-next-heading) (org-inlinetask-at-task-p)))
|
||||||
(org-inlinetask-toggle-visibility)
|
(org-inlinetask-toggle-visibility)
|
||||||
(org-inlinetask-goto-end))))))
|
(org-inlinetask-goto-end))))))
|
||||||
|
|
||||||
|
|
|
@ -119,7 +119,7 @@ http://lists.gnu.org/archive/html/emacs-orgmode/2017-12/msg00502.html"
|
||||||
(org-cycle-internal-local)
|
(org-cycle-internal-local)
|
||||||
(invisible-p (1- (search-forward "- b"))))))
|
(invisible-p (1- (search-forward "- b"))))))
|
||||||
|
|
||||||
(ert-deftest test-org-inlinetask/folding-directly-consecutive-tasks ()
|
(ert-deftest test-org-inlinetask/folding-directly-consecutive-tasks/0 ()
|
||||||
"Fold directly consecutive inlinetasks."
|
"Fold directly consecutive inlinetasks."
|
||||||
(should
|
(should
|
||||||
(org-test-with-temp-text
|
(org-test-with-temp-text
|
||||||
|
@ -135,6 +135,28 @@ http://lists.gnu.org/archive/html/emacs-orgmode/2017-12/msg00502.html"
|
||||||
(org-cycle-internal-local)
|
(org-cycle-internal-local)
|
||||||
(invisible-p (1- (search-forward "- b"))))))
|
(invisible-p (1- (search-forward "- b"))))))
|
||||||
|
|
||||||
|
(ert-deftest test-org-inlinetask/folding-directly-consecutive-tasks/1 ()
|
||||||
|
"Fold directly consecutive inlinetasks."
|
||||||
|
(should
|
||||||
|
(org-test-with-temp-text
|
||||||
|
"<point>* Test
|
||||||
|
*************** p1
|
||||||
|
p2
|
||||||
|
*************** END
|
||||||
|
*************** p3
|
||||||
|
p4
|
||||||
|
*************** END
|
||||||
|
|
||||||
|
"
|
||||||
|
(outline-hide-subtree)
|
||||||
|
(org-cycle)
|
||||||
|
(and
|
||||||
|
(not (invisible-p (1- (search-forward "p1"))))
|
||||||
|
(invisible-p (1- (search-forward "p2")))
|
||||||
|
(not (invisible-p (1- (search-forward "p3"))))
|
||||||
|
(invisible-p (1- (search-forward "p4")))))))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(provide 'test-org-inlinetask)
|
(provide 'test-org-inlinetask)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue