FIX only shift incomplete tasks

This commit is contained in:
Nathan Dwarshuis 2021-06-04 18:19:41 -04:00
parent 09d8498637
commit 43d5e80eea
1 changed files with 2 additions and 1 deletions

View File

@ -1105,7 +1105,8 @@ timestamp in the contents of the headline will be shifted."
(cl-labels (cl-labels
((shift-timestamps ((shift-timestamps
(offset unit subtree) (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* (org-ml-headline-map-planning*
(-some->> it (-some->> it
(org-ml-map-property* :scheduled (org-ml-map-property* :scheduled