tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Fix commit 1eb03c8c87

Browse source 
Thanks to Michael Brand for reporting this.
This commit is contained in:
Bastien Guerry 2013-11-14 23:39:54 +01:00
parent 695391fc24
commit 19dd1e1cc3
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/org.el
View file

@ -12858,7 +12858,7 @@ This function is run automatically after each state change to a DONE state."
(org-log-done nil)
(org-todo-log-states nil)
re type n what ts time to-state)
(when (and repeat (not (zerop (string-to-number repeat))))
(when (and repeat (not (zerop (string-to-number (substring repeat 1)))))
(if (eq org-log-repeat t) (setq org-log-repeat 'state))
(setq to-state (or (org-entry-get nil "REPEAT_TO_STATE")
org-todo-repeat-to-state))