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

org-habit.el (org-habit-parse-todo): Match all TODO keywords, not just "TODO" 

* org-habit.el (org-habit-parse-todo): Match all TODO
keywords, not just "TODO".

TINYCHANGE
This commit is contained in:
Ted Wiles 2013-12-23 00:10:44 +01:00 committed by Bastien Guerry
parent 6999c5cc84
commit a7417ffcdb
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org-habit.el
View File

@ -200,9 +200,15 @@ This list represents a \"habit\" for the rest of this module."
(count 0))
(unless reversed (goto-char end))
(while (and (< count maxdays)
(funcall search "- State \"DONE\".*\\[\\([^]]+\\)\\]" limit t))
(funcall
search
(format "- State \"%s\".*\\[\\([^]]+\\)\\]"
(concat "\\("
(mapconcat 'regexp-quote
org-done-keywords "\\|") "\\)"))
limit t))
(push (time-to-days
(org-time-string-to-time (match-string-no-properties 1)))
(org-time-string-to-time (match-string-no-properties 2)))
closed-dates)
(setq count (1+ count))))
(list scheduled sr-days deadline dr-days closed-dates))))