forked from mirrors/org-mode
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:
parent
6999c5cc84
commit
a7417ffcdb
|
@ -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))))
|
||||
|
|
Loading…
Reference in a new issue