Selaa lähdekoodia

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.
Bastien Guerry 12 vuotta sitten
vanhempi
commit
8ae106907a
1 muutettua tiedostoa jossa 5 lisäystä ja 3 poistoa
  1. 5 3
      lisp/org-agenda.el

+ 5 - 3
lisp/org-agenda.el

@@ -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