FIX resetting accumulator accidentally
This commit is contained in:
parent
81fbf08561
commit
7d7225cb00
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue