diff options
author | akater <nuclearspace@gmail.com> | 2020-04-30 06:50:31 +0000 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2020-05-01 23:32:29 -0400 |
commit | d23bd9187458a76e69763a603f4542b7c352c896 (patch) | |
tree | 56094e580f020db7aa89fa5f3a89a0ced935181a | |
parent | 90185c98f46ec94be6801539d0d36d41fab26ea2 (diff) | |
download | org-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.el | 8 |
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) |