diff options
author | Bastien Guerry <bzg@altern.org> | 2014-01-29 09:19:08 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2014-01-29 09:19:08 +0100 |
commit | 2c7ffbe4b2c159d01d8e252ce17a5dc0a9f7aee4 (patch) | |
tree | 99f9de0f8d01f157fe99a0624cc09aa6eed21d25 | |
parent | e45d13d94e1185db14031e0becafb6911b7a57b6 (diff) | |
download | org-mode-2c7ffbe4b2c159d01d8e252ce17a5dc0a9f7aee4.tar.gz |
Fix 80fc5ad
Thanks to Yasushi SHOJI for reporting this.
-rw-r--r-- | lisp/org.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index 5b35f3a..d2e6d99 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -12715,6 +12715,8 @@ statistics everywhere." (setq kwd (and (or recursive (= l1 ltoggle)) (match-string 2))) (if (or (eq org-provide-todo-statistics 'all-headlines) + (and (eq org-provide-todo-statistics t) + (or (member kwd org-done-keywords))) (and (listp org-provide-todo-statistics) (stringp (car org-provide-todo-statistics)) (or (member kwd org-provide-todo-statistics) @@ -12727,7 +12729,9 @@ statistics everywhere." (setq cnt-all (1+ cnt-all)) (if (eq org-provide-todo-statistics t) (and kwd (setq cnt-all (1+ cnt-all))))) - (when (or (and (listp org-provide-todo-statistics) + (when (or (and (eq org-provide-todo-statistics t) + (member kwd org-done-keywords)) + (and (listp org-provide-todo-statistics) (listp (car org-provide-todo-statistics)) (member kwd org-done-keywords) (member kwd (cadr org-provide-todo-statistics))) |