[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 84d6c31 1/2: Merge branch 'maint'
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 84d6c31 1/2: Merge branch 'maint' |
Date: |
Sat, 1 May 2021 02:57:11 -0400 (EDT) |
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)