Просмотр исходного кода

Merge branch 'master' into next

Kyle Meyer 6 лет назад
Родитель
Сommit
a3741d99b8
1 измененных файлов с 1 добавлено и 1 удалено
  1. 1 1
      lisp/org.el

+ 1 - 1
lisp/org.el

@@ -13978,7 +13978,7 @@ When DOWNCASED is non-nil, expand downcased TAGS."
   (let ((tag-groups
 	 (let ((g (or org-tag-groups-alist-for-agenda org-tag-groups-alist)))
 	   (if (not downcased) g
-	     (mapcar (lambda (s) (mapcar #'downcase s)))))))
+	     (mapcar (lambda (s) (mapcar #'downcase s)) g)))))
     (cond
      (single-as-list (org--tags-expand-group (list match) tag-groups nil))
      (org-group-tags