From fc3857b3102aa3443d509eee04bf22eaa7bd8c59 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Mon, 23 Dec 2013 06:58:26 +0100 Subject: [PATCH] Small rewrite of the previous commit. Use `regexp-opt' instead of `regexp-quote'. --- lisp/org-habit.el | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/lisp/org-habit.el b/lisp/org-habit.el index 1eb516080..8c0284912 100644 --- a/lisp/org-habit.el +++ b/lisp/org-habit.el @@ -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))))