Took out the hardcoded todo-state

* lisp/org-habit.el 

  The "DONE" keyword was hardcoded in. This is my first patch (ever, to anything).

  TINYCHANGE

1 file changed, 2 insertions(+), 1 deletion(-)
 lisp/org-habit.el |    3 ++-

	Modified   lisp/org-habit.el
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)