jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change: (todo) Don't match done tasks

Browse source
This commit is contained in:
Adam Porter 2019-08-13 13:57:34 -05:00
parent 31bc01bc52
commit 515b4960c4
3 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
org-ql.el
View file

@ -600,7 +600,7 @@ ignored."
With KEYWORDS, return non-nil if its keyword is one of KEYWORDS (a list of strings)."
(when-let ((state (org-get-todo-state)))
(cl-typecase keywords
(null t)
(null (not (member state org-done-keywords)))
(list (member state keywords))
(symbol (member state (symbol-value keywords)))
(otherwise (user-error "Invalid todo keywords: %s" keywords)))))