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

Small rewrite of the previous commit. 

Use `regexp-opt' instead of `regexp-quote'.
This commit is contained in:
Bastien Guerry 2013-12-23 06:58:26 +01:00
parent a7417ffcdb
commit fc3857b310
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)) (count 0))
(unless reversed (goto-char end)) (unless reversed (goto-char end))
(while (and (< count maxdays) (while (and (< count maxdays)
(funcall (funcall search (format "- State \"%s\".*\\[\\([^]]+\\)\\]"
search (regexp-opt org-done-keywords))
(format "- State \"%s\".*\\[\\([^]]+\\)\\]" limit t))
(concat "\\("
(mapconcat 'regexp-quote
org-done-keywords "\\|") "\\)"))
limit t))
(push (time-to-days (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) closed-dates)
(setq count (1+ count)))) (setq count (1+ count))))
(list scheduled sr-days deadline dr-days closed-dates)))) (list scheduled sr-days deadline dr-days closed-dates))))