فهرست منبع

Merge branch 'maint'

Bastien Guerry 12 سال پیش
والد
کامیت
c6381df127
1فایلهای تغییر یافته به همراه5 افزوده شده و 3 حذف شده
  1. 5 3
      lisp/org-agenda.el

+ 5 - 3
lisp/org-agenda.el

@@ -7530,9 +7530,11 @@ to switch to narrowing."
 		 (if notgroup
 		 (if notgroup
 		     (push (cons 'and nf0) f)
 		     (push (cons 'and nf0) f)
 		   (push (cons (or op 'or) 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
      ;; Category filter
      ((eq type 'category)
      ((eq type 'category)
       (setq filter
       (setq filter