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

Merge branch 'maint'

This commit is contained in:
Bastien Guerry 2013-12-23 06:58:46 +01:00
parent acfe7255ff fc3857b310
commit d4710bd0aa
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org-habit.el
View File

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