From 1f486cdb5fffd83cd0fc065e86be4032fc368ee7 Mon Sep 17 00:00:00 2001 From: Theodore Wiles Date: Sun, 15 Dec 2013 21:56:25 -0500 Subject: [PATCH] Took out the hardcoded todo-state. --- lisp/org-habit.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/org-habit.el b/lisp/org-habit.el index eba9037..69d0fa6 100644 --- a/lisp/org-habit.el +++ b/lisp/org-habit.el @@ -200,7 +200,8 @@ 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\".*\\[\\([^]]+\\)\\]" + (car (reverse (car org-todo-keywords)))) limit t)) (push (time-to-days (org-time-string-to-time (match-string-no-properties 1))) closed-dates) -- 1.7.9.5