ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix repeating entries without a TODO keyword 

* lisp/org.el (org-auto-repeat-maybe): Allow repeating entries without
  a TODO keyword.
This commit is contained in:
Nicolas Goaziou 2017-02-02 14:17:04 +01:00
parent 32972979c7
commit 37bd3586e9
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org.el
View File

@ -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)) (when (eq org-log-repeat t) (setq org-log-repeat 'state))
(let ((to-state (or (org-entry-get nil "REPEAT_TO_STATE" 'selective) (let ((to-state (or (org-entry-get nil "REPEAT_TO_STATE" 'selective)
org-todo-repeat-to-state))) org-todo-repeat-to-state)))
(unless (and to-state (member to-state org-todo-keywords-1)) (org-todo (cond ((and to-state (member to-state org-todo-keywords-1))
(setq to-state (if (eq interpret 'type) org-last-state head))) to-state)
(org-todo to-state)) ((eq interpret 'type) org-last-state)
(head)
(t 'none))))
(when (or org-log-repeat (org-entry-get nil "CLOCK")) (when (or org-log-repeat (org-entry-get nil "CLOCK"))
(org-entry-put nil "LAST_REPEAT" (format-time-string (org-entry-put nil "LAST_REPEAT" (format-time-string
(org-time-stamp-format t t)))) (org-time-stamp-format t t))))