summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2014-01-29 09:19:08 +0100
committerBastien Guerry <bzg@altern.org>2014-01-29 09:19:08 +0100
commit2c7ffbe4b2c159d01d8e252ce17a5dc0a9f7aee4 (patch)
tree99f9de0f8d01f157fe99a0624cc09aa6eed21d25
parente45d13d94e1185db14031e0becafb6911b7a57b6 (diff)
downloadorg-mode-2c7ffbe4b2c159d01d8e252ce17a5dc0a9f7aee4.tar.gz
Fix 80fc5ad
Thanks to Yasushi SHOJI for reporting this.
-rw-r--r--lisp/org.el6
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)))