forked from mirrors/org-mode
Small rewrite of the previous commit.
Use `regexp-opt' instead of `regexp-quote'.
This commit is contained in:
parent
a7417ffcdb
commit
fc3857b310
|
@ -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))))
|
||||||
|
|
Loading…
Reference in a new issue