diff --git a/local/lib/org-x/org-x-dag.el b/local/lib/org-x/org-x-dag.el index 3d402b5..edb7d06 100644 --- a/local/lib/org-x/org-x-dag.el +++ b/local/lib/org-x/org-x-dag.el @@ -1078,7 +1078,10 @@ used for optimization." (org-x-dag-bs-with-children-1 tree 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-inner))