summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJonas Hoersch <coroa@online.de>2013-10-30 15:39:33 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2013-11-06 16:51:56 +0100
commit4c04c13a189e6f6729d1ee9adae346ffc30522c4 (patch)
tree1f0167cf4127a8cae400a2f14d9c9f6446ff1f31
parent47b0eec8dc39990731f400640d64ab70a8356ccd (diff)
downloadorg-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.el18
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.