Browse Source

Merge branch 'maint'

Bastien Guerry 12 years ago
parent
commit
c6381df127
1 changed files with 5 additions and 3 deletions
  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