summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2011-07-18 15:10:42 +0200
committerNicolas Goaziou <n.goaziou@gmail.com>2011-07-18 15:11:56 +0200
commitddec51af0f58e678af84c753da4065a9450c3ae5 (patch)
tree74bff0e9b40da8849bbcd890067963ce3f25f353
parenta161ecfd6acfd23f5cde94f8950484da75f1ca5c (diff)
downloadorg-mode-ddec51af0f58e678af84c753da4065a9450c3ae5.tar.gz
Comment some code for posterity
-rw-r--r--lisp/org.el10
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/org.el b/lisp/org.el
index 30a1e1a..27be6a6 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -11331,6 +11331,16 @@ statistics everywhere."
(save-excursion
(beginning-of-line 1)
(setq ltoggle (funcall outline-level))
+ ;; Three situations are to consider:
+
+ ;; 1. if `org-hierarchical-todo-statistics' is nil, repeat up
+ ;; to the top-level ancestor on the headline;
+
+ ;; 2. If parent has "recursive" property, repeat up to the
+ ;; headline setting that property, taking inheritance into
+ ;; account;
+
+ ;; 3. Else, move up to direct parent and proceed only once.
(while (and (setq level (org-up-heading-safe))
(or recursive first)
(>= (point) lim))