Forráskód Böngészése

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 éve
szülő
commit
8ae106907a
1 módosított fájl, 5 hozzáadás és 3 törlés
  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