summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2017-05-30 18:56:56 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2017-05-30 18:56:56 +0200
commit2b95b40b319c475ca50b6ecbe8abd47a6e74a311 (patch)
tree8987dbb0aa7f06110960caa60410b66f7de66b65
parent444d2673bb9b42e52b4e456bc1f57bb85425f388 (diff)
downloadorg-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.el4
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)