org-agenda.el (org-agenda-filter-make-matcher): Fix regression

* org-agenda.el (org-agenda-filter-make-matcher): When
filtering tags and hitting space, filter out entries with
tags, only keep those without tags.

Thanks to Serguei Son for reporting this regression.
This commit is contained in:
Bastien Guerry 2013-11-05 19:41:41 +01:00
parent c1eff607b8
commit 8ae106907a

View file

@ -7529,9 +7529,11 @@ to switch to narrowing."
(if notgroup
(push (cons 'and nf0) f)
(push (cons (or op 'or) nf0) f)))))
(if (equal nfilter filter)
(funcall ffunc f1 f filter t nil)
(funcall ffunc nf1 nf nfilter nil nil)))))
(cond ((equal filter '("+"))
(setq f (list (list 'not 'tags))))
((equal nfilter filter)
(funcall ffunc f1 f filter t nil))
(t (funcall ffunc nf1 nf nfilter nil nil))))))
;; Category filter
((eq type 'category)
(setq filter