Explorar o código

Merge branch 'maint'

Kyle Meyer %!s(int64=5) %!d(string=hai) anos
pai
achega
b2aa7e99f2
Modificáronse 1 ficheiros con 4 adicións e 2 borrados
  1. 4 2
      lisp/org-agenda.el

+ 4 - 2
lisp/org-agenda.el

@@ -7948,8 +7948,10 @@ These will be lower-case, for filtering."
 argument EXPAND can be used for the TYPE tag and will expand the
 argument EXPAND can be used for the TYPE tag and will expand the
 tags in the FILTER if any of the tags in FILTER are grouptags."
 tags in the FILTER if any of the tags in FILTER are grouptags."
   (let ((multi-pos-cats
   (let ((multi-pos-cats
-	 (string-match-p "\++"
-	  (mapconcat (lambda (cat) (substring cat 0 1)) filter "")))
+	 (and (eq type 'category)
+	      (string-match-p "\\+.*\\+"
+			      (mapconcat (lambda (cat) (substring cat 0 1))
+					 filter ""))))
 	f f1)
 	f f1)
     (cond
     (cond
      ;; Tag filter
      ;; Tag filter