diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-09-08 21:18:22 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-09-08 21:18:22 +0200 |
commit | d059b7895ba71744de0a7502a5a9fe78c36c93fe (patch) | |
tree | 68f372fb06db186098024c6ffb73fb9b6b377eae | |
parent | 7ce9a24115d8cf716481adb72d5d1783e0fd047b (diff) | |
download | org-mode-d059b7895ba71744de0a7502a5a9fe78c36c93fe.tar.gz |
org-agenda: Better state change detection
* lisp/org-agenda.el (org-agenda-get-progress): Use appropriate regexp
as TODO keywords are not limited to alphanumeric characters.
Reported-by: email@edgar-kalkowski.de
<http://lists.gnu.org/archive/html/emacs-orgmode/2017-09/msg00206.html>
-rw-r--r-- | lisp/org-agenda.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 7f3fec4..31633d7 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -5728,7 +5728,8 @@ then those holidays will be skipped." (list (if (memq 'closed items) (concat "\\<" org-closed-string)) (if (memq 'clock items) (concat "\\<" org-clock-string)) - (if (memq 'state items) "- State \"\\([a-zA-Z0-9]+\\)\".*?")))) + (if (memq 'state items) + (format "- State \"%s\".*?" org-todo-regexp))))) (parts-re (if parts (mapconcat 'identity parts "\\|") (error "`org-agenda-log-mode-items' is empty"))) (regexp (concat |