FIX only shift incomplete tasks
This commit is contained in:
parent
09d8498637
commit
43d5e80eea
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue