ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix cycling bug.

This commit is contained in:
Carsten Dominik 2009-08-04 10:22:08 +02:00
parent a4a8bd2d07
commit 2ec01a800f
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org.el
View File

@ -4998,10 +4998,11 @@ in special contexts.
(if (org-invisible-p) (org-flag-heading nil))) (if (org-invisible-p) (org-flag-heading nil)))
(setq org-cycle-subtree-status 'children) (setq org-cycle-subtree-status 'children)
(run-hook-with-args 'org-cycle-hook 'children)) (run-hook-with-args 'org-cycle-hook 'children))
((and (eq last-command this-command) ((or children-skipped
(or children-skipped (and (eq last-command this-command)
(eq org-cycle-subtree-status 'children))) (eq org-cycle-subtree-status 'children)))
;; We just showed the children, now show everything. ;; We just showed the children, or no children are there,
;; now show everything.
(run-hook-with-args 'org-pre-cycle-hook 'subtree) (run-hook-with-args 'org-pre-cycle-hook 'subtree)
(org-show-subtree) (org-show-subtree)
(message (if children-skipped "SUBTREE (NO CHILDREN)" "SUBTREE")) (message (if children-skipped "SUBTREE (NO CHILDREN)" "SUBTREE"))