From 43d5e80eea172d2faecbc4d7ac2b42070b3b73fb Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Fri, 4 Jun 2021 18:19:41 -0400
Subject: [PATCH] FIX only shift incomplete tasks

---
 local/lib/org-x/org-x.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/local/lib/org-x/org-x.el b/local/lib/org-x/org-x.el
index 2e6ecd2..dc52a23 100644
--- a/local/lib/org-x/org-x.el
+++ b/local/lib/org-x/org-x.el
@@ -1105,7 +1105,8 @@ timestamp in the contents of the headline will be shifted."
   (cl-labels
       ((shift-timestamps
         (offset unit subtree)
-        (if (org-ml-get-property :todo-keyword subtree)
+        (if (not (member (org-ml-get-property :todo-keyword subtree)
+                         (list org-x-kw-done org-x-kw-canc)))
             (org-ml-headline-map-planning*
               (-some->> it
                 (org-ml-map-property* :scheduled