diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-02-02 14:17:04 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-02-02 14:17:04 +0100 |
commit | 37bd3586e955e4c2e6eda50aaaf30563288f61f0 (patch) | |
tree | fe201457ddd6be8549166bbe9e16562c05c82af7 | |
parent | 32972979c75ac991545a4467832084a93d79cd5d (diff) | |
download | org-mode-37bd3586e955e4c2e6eda50aaaf30563288f61f0.tar.gz |
Fix repeating entries without a TODO keyword
* lisp/org.el (org-auto-repeat-maybe): Allow repeating entries without
a TODO keyword.
-rw-r--r-- | lisp/org.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/org.el b/lisp/org.el index 3ec5686..6132495 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -13317,9 +13317,11 @@ This function is run automatically after each state change to a DONE state." (when (eq org-log-repeat t) (setq org-log-repeat 'state)) (let ((to-state (or (org-entry-get nil "REPEAT_TO_STATE" 'selective) org-todo-repeat-to-state))) - (unless (and to-state (member to-state org-todo-keywords-1)) - (setq to-state (if (eq interpret 'type) org-last-state head))) - (org-todo to-state)) + (org-todo (cond ((and to-state (member to-state org-todo-keywords-1)) + to-state) + ((eq interpret 'type) org-last-state) + (head) + (t 'none)))) (when (or org-log-repeat (org-entry-get nil "CLOCK")) (org-entry-put nil "LAST_REPEAT" (format-time-string (org-time-stamp-format t t)))) |