diff options
author | Jonas Hoersch <coroa@online.de> | 2013-10-30 15:39:33 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-11-06 16:51:56 +0100 |
commit | 4c04c13a189e6f6729d1ee9adae346ffc30522c4 (patch) | |
tree | 1f0167cf4127a8cae400a2f14d9c9f6446ff1f31 | |
parent | 47b0eec8dc39990731f400640d64ab70a8356ccd (diff) | |
download | org-mode-4c04c13a189e6f6729d1ee9adae346ffc30522c4.tar.gz |
org-inlinetask: Hide inline tasks in 'children visibility state
* lisp/org.el (org-cycle-hide-inline-tasks): Re-hide inline tasks when
switching to 'children visibility state.
TINYCHANGE
-rw-r--r-- | lisp/org.el | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/lisp/org.el b/lisp/org.el index 2b5e3d0..7042d69 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -7071,11 +7071,19 @@ open and agenda-wise Org files." (org-flag-drawer t)))))) (defun org-cycle-hide-inline-tasks (state) - "Re-hide inline task when switching to 'contents visibility state." - (when (and (eq state 'contents) - (boundp 'org-inlinetask-min-level) - org-inlinetask-min-level) - (hide-sublevels (1- org-inlinetask-min-level)))) + "Re-hide inline tasks when switching to 'contents or 'children +visibility state." + (case state + (contents + (when (org-bound-and-true-p org-inlinetask-min-level) + (hide-sublevels (1- org-inlinetask-min-level)))) + (children + (when (featurep 'org-inlinetask) + (save-excursion + (while (and (outline-next-heading) + (org-inlinetask-at-task-p)) + (org-inlinetask-toggle-visibility) + (org-inlinetask-goto-end))))))) (defun org-flag-drawer (flag) "When FLAG is non-nil, hide the drawer we are within. |