diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2020-04-07 22:47:51 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2020-04-07 22:47:51 -0400 |
| commit | b2aa7e99f2d7742a033509f73bb26b2a6a170d04 (patch) | |
| tree | 2016d08b018a943f95b2824dbc46f1de476c8b4f | |
| parent | 5b41528bcb4688b4d2a35c6a420823b970045cf2 (diff) | |
| parent | 561e9efd062e23321f3b56b2e3482ef3afc7416f (diff) | |
| download | org-mode-b2aa7e99f2d7742a033509f73bb26b2a6a170d04.tar.gz | |
Merge branch 'maint'
| -rw-r--r-- | lisp/org-agenda.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index d89a3da..ffb892b 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7948,8 +7948,10 @@ These will be lower-case, for filtering." argument EXPAND can be used for the TYPE tag and will expand the tags in the FILTER if any of the tags in FILTER are grouptags." (let ((multi-pos-cats - (string-match-p "\++" - (mapconcat (lambda (cat) (substring cat 0 1)) filter ""))) + (and (eq type 'category) + (string-match-p "\\+.*\\+" + (mapconcat (lambda (cat) (substring cat 0 1)) + filter "")))) f f1) (cond ;; Tag filter |