FIX resetting accumulator accidentally

This commit is contained in:
Nathan Dwarshuis 2022-04-26 22:59:28 -04:00
parent 81fbf08561
commit 7d7225cb00
1 changed files with 5 additions and 3 deletions

View File

@ -2961,9 +2961,11 @@ FUTURE-LIMIT in a list."
(acc id) (acc id)
(pcase (either-from-right (org-x-dag-id->bs id) nil) (pcase (either-from-right (org-x-dag-id->bs id) nil)
(`(:daily :active (:sched ,sched)) (`(:daily :active (:sched ,sched))
(-when-let (dt (org-ml-timestamp-get-start-time sched)) (-if-let (dt (org-ml-timestamp-get-start-time sched))
(when (org-x-dag-date= sel-date dt) (if (org-x-dag-date= sel-date dt)
(add-sched acc id nil)))) (add-sched acc id nil)
acc)
acc))
(`(:daily :complete ,_) (`(:daily :complete ,_)
(add-sched acc id t)) (add-sched acc id t))
(`(:action . ,bs) (`(:action . ,bs)