瀏覽代碼

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