[elpa] externals/org 84d6c31 1/2: Merge branch 'maint'

[ELPA Syncer]

branch: externals/org
commit 84d6c31069838b4beb171e7a01239a40c8e1e38e
Merge: d63dd37 d18071b
Author: Bastien Guerry <bzg@gnu.org>
Commit: Bastien Guerry <bzg@gnu.org>

    Merge branch 'maint'
---
 lisp/org-agenda.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index bd9d466..a832bd0 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -7848,8 +7848,8 @@ the variable `org-agenda-auto-exclude-function'."
          (setq s (replace-regexp-in-string ; Remove the temporary special 
string.
                   "~~~" "-" (match-string 3 f-string)))
          (cond
-          ((member (downcase s) tag-list)
-           (org-pushnew-to-end (concat pm (downcase s)) ft))
+          ((member s tag-list)
+           (org-pushnew-to-end (concat pm s) ft))
           ((member s category-list)
            (org-pushnew-to-end (concat pm ; Remove temporary double quotes.
                                        (replace-regexp-in-string 
"\"\\(.*\\)\"" "\\1" s))
@@ -8049,8 +8049,8 @@ These will be lower-case, for filtering."
          (dolist (tag tags-lists)
            (mapc
             (lambda (group)
-              (when (member tag (mapcar #'downcase group))
-                (push (downcase (car group)) tags-lists)))
+              (when (member tag group)
+                (push (car group) tags-lists)))
             org-tag-groups-alist-for-agenda))
          (setq org-agenda-represented-tags tags-lists)))))
 
@@ -8124,7 +8124,7 @@ function to set the right switches in the returned form."
                 ((and (string-match-p "\\`{" tag) (string-match-p "}\\'" tag))
                  ;; TAG is a regexp.
                  (list 'org-match-any-p (substring tag 1 -1) 'tags))
-                (t (list 'member (downcase tag) 'tags)))))
+                (t (list 'member tag 'tags)))))
        (push (if (eq op ?-) (list 'not f) f) form)))))
 
 (defun org-agenda-filter-effort-form (e)