Skip to content

Commit

Permalink
Fix: (org-super-agenda--map-children)
Browse files Browse the repository at this point in the history
Actually fixes #75.  Thanks to Elric Milon (@whirm) for reporting.
  • Loading branch information
alphapapa committed Aug 9, 2019
1 parent bd674a4 commit 2ed3b8c
Show file tree
Hide file tree
Showing 3 changed files with 19 additions and 19 deletions.
2 changes: 1 addition & 1 deletion README.org
Original file line number Diff line number Diff line change
Expand Up @@ -228,7 +228,7 @@ These selectors take one argument alone, or multiple arguments in a list.
+ Group headers face is now appended to face list instead of overriding it.

*Fixed*
+ =:children todo= group selection ([[https://github.com/alphapapa/org-super-agenda/issues/75][#75]]). (Thanks to [[https://github.com/bleggett][Ben Leggett]].)
+ =:children todo= group selection ([[https://github.com/alphapapa/org-super-agenda/issues/75][#75]]). (Thanks to [[https://github.com/bleggett][Ben Leggett]] and [[https://github.com/whirm][Elric Milon]].)
+ =:children= group headings.

*Updated*
Expand Down
13 changes: 6 additions & 7 deletions org-super-agenda.el
Original file line number Diff line number Diff line change
Expand Up @@ -218,14 +218,13 @@ If ANY is non-nil, return as soon as FORM returns non-nil."
(save-restriction
(let ((,tree-start (point))
,all-results)
(when (org-goto-first-child)
(goto-char ,tree-start)
(when (save-excursion
(org-goto-first-child))
(org-narrow-to-subtree)
(goto-char (point-min))
(cond (,any (cl-loop thereis ,form
while (outline-next-heading)))
(t (cl-loop collect ,form
while (outline-next-heading))))))))))
(cond (,any (cl-loop while (outline-next-heading)
thereis ,form))
(t (cl-loop while (outline-next-heading)
collect ,form)))))))))

;;;; Support functions

Expand Down
23 changes: 12 additions & 11 deletions org-super-agenda.info
Original file line number Diff line number Diff line change
Expand Up @@ -513,7 +513,8 @@ File: README.info, Node: 12-pre, Next: 111, Up: Changelog
*Fixed*
• :children todo group selection (#75
(https://github.com/alphapapa/org-super-agenda/issues/75)).
(Thanks to Ben Leggett (https://github.com/bleggett).)
(Thanks to Ben Leggett (https://github.com/bleggett) and Elric
Milon (https://github.com/whirm).)
• :children group headings.

*Updated*
Expand Down Expand Up @@ -678,16 +679,16 @@ Node: Normal selectors12555
Node: Tips17186
Node: Changelog18037
Node: 12-pre18262
Node: 11119089
Node: 1119262
Node: 10320834
Node: 10221045
Node: 10121179
Node: 10021517
Node: Development21622
Node: Bugs22024
Node: Tests22677
Node: Credits22996
Node: 11119137
Node: 1119310
Node: 10320882
Node: 10221093
Node: 10121227
Node: 10021565
Node: Development21670
Node: Bugs22072
Node: Tests22725
Node: Credits23044

End Tag Table

Expand Down

0 comments on commit 2ed3b8c

Please sign in to comment.