mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-29 07:58:21 +00:00
Code

Comment some code for posterity

Browse Source
This commit is contained in:
Nicolas Goaziou 2011-07-18 15:10:42 +02:00
parent a161ecfd6a
commit ddec51af0f
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org.el
View File

@ -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))