From 81fbf0856134b1438278a0f1c046789869665dad Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Tue, 26 Apr 2022 22:41:04 -0400 Subject: [PATCH] FIX actually propagate the ancestry of epgs --- local/lib/org-x/org-x-dag.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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))