FIX only shift incomplete tasks

2021-06-04 18:19:41 -04:00 · 2021-06-04 18:19:41 -04:00 · 43d5e80eea
parent 09d8498637
commit 43d5e80eea
1 changed files with 2 additions and 1 deletions
--- 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