diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-05-30 18:56:56 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-05-30 18:56:56 +0200 |
commit | 2b95b40b319c475ca50b6ecbe8abd47a6e74a311 (patch) | |
tree | 8987dbb0aa7f06110960caa60410b66f7de66b65 | |
parent | 444d2673bb9b42e52b4e456bc1f57bb85425f388 (diff) | |
download | org-mode-2b95b40b319c475ca50b6ecbe8abd47a6e74a311.tar.gz |
org-agenda: Fix `org-tags-view'
* lisp/org-agenda.el (org-tags-view): Do not set global value for
`org--matcher-tags-todo-only'.
Reported-by: Samuel Loury <konubinix@gmail.com>
-rw-r--r-- | lisp/org-agenda.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index a00512a..9c83914 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -4819,6 +4819,7 @@ The prefix arg TODO-ONLY limits the search to TODO entries." (let* ((org-tags-match-list-sublevels org-tags-match-list-sublevels) (completion-ignore-case t) + (org--matcher-tags-todo-only todo-only) rtn rtnall files file pos matcher buffer) (when (and (stringp match) (not (string-match "\\S-" match))) @@ -4833,8 +4834,7 @@ The prefix arg TODO-ONLY limits the search to TODO entries." ;; Prepare agendas (and `org-tag-alist-for-agenda') before ;; expanding tags within `org-make-tags-matcher' (org-agenda-prepare (concat "TAGS " match)) - (setq org--matcher-tags-todo-only todo-only - matcher (org-make-tags-matcher match) + (setq matcher (org-make-tags-matcher match) match (car matcher) matcher (cdr matcher)) (org-compile-prefix-format 'tags) |