diff options
| author | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:32 +0200 |
|---|---|---|
| committer | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:32 +0200 |
| commit | efc77ab6f5e8883fc38d8c6f75b6db54a0965c15 (patch) | |
| tree | a34b12897145816f4ab7fbeb2fe6db437651e98e /lisp/org-habit.el | |
| parent | 52fbfeb04b10aa78f24f339a352fe1161c0b37e4 (diff) | |
Imported Upstream version 8.2.5h
Diffstat (limited to 'lisp/org-habit.el')
| -rw-r--r-- | lisp/org-habit.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org-habit.el b/lisp/org-habit.el index eba9037..721718d 100644 --- a/lisp/org-habit.el +++ b/lisp/org-habit.el @@ -1,6 +1,6 @@ ;;; org-habit.el --- The habit tracking code for Org-mode -;; Copyright (C) 2009-2013 Free Software Foundation, Inc. +;; Copyright (C) 2009-2014 Free Software Foundation, Inc. ;; Author: John Wiegley <johnw at gnu dot org> ;; Keywords: outlines, hypermedia, calendar, wp @@ -200,7 +200,9 @@ 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\".*\\[\\([^]]+\\)\\]" + (regexp-opt org-done-keywords)) + limit t)) (push (time-to-days (org-time-string-to-time (match-string-no-properties 1))) closed-dates) |