summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorakater <nuclearspace@gmail.com>2020-04-30 06:50:31 +0000
committerKyle Meyer <kyle@kyleam.com>2020-05-01 23:32:29 -0400
commitd23bd9187458a76e69763a603f4542b7c352c896 (patch)
tree56094e580f020db7aa89fa5f3a89a0ced935181a
parent90185c98f46ec94be6801539d0d36d41fab26ea2 (diff)
downloadorg-mode-d23bd9187458a76e69763a603f4542b7c352c896.tar.gz
org-agenda.el: Complete multiple todo keywords
* lisp/org-agenda.el (org-todo-list): Use completing-read-multiple instead of completing-read when selecting todo keywords to filter by in Agenda. Fix a typo in the prompt. TINYCHANGE
-rw-r--r--lisp/org-agenda.el8
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index c56e8c5..bbc14b1 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -4790,8 +4790,12 @@ for a keyword. A numeric prefix directly selects the Nth keyword in
(nth (1- arg) kwds))))
(when (equal arg '(4))
(setq org-select-this-todo-keyword
- (completing-read "Keyword (or KWD1|K2D2|...): "
- (mapcar #'list kwds) nil nil)))
+ (mapconcat #'identity
+ (let ((crm-separator "|"))
+ (completing-read-multiple
+ "Keyword (or KWD1|KWD2|...): "
+ (mapcar #'list kwds) nil nil))
+ "|")))
(and (equal 0 arg) (setq org-select-this-todo-keyword nil))
(org-compile-prefix-format 'todo)
(org-set-sorting-strategy 'todo)