FIX actually propagate the ancestry of epgs

This commit is contained in:
Nathan Dwarshuis 2022-04-26 22:41:04 -04:00
parent ed3581ccb6
commit 81fbf08561
1 changed files with 4 additions and 1 deletions

View File

@ -1078,7 +1078,10 @@ used for optimization."
(org-x-dag-bs-with-children-1 (org-x-dag-bs-with-children-1
tree tree
ancestry ancestry
(lambda (_ a) a) (lambda (node-meta parent-ancestry)
(-let (((&plist :canceled-parent-p c) parent-ancestry)
((&plist :todo) node-meta))
(list :canceled-parent-p (or c (equal todo org-x-kw-canc)))))
#'org-x-dag-bs-epg-outer #'org-x-dag-bs-epg-outer
#'org-x-dag-bs-epg-inner)) #'org-x-dag-bs-epg-inner))