From 75ccb9719fc0d6822e7e69e9d3079f884cfb96ea Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Thu, 11 Feb 2021 12:03:15 +0800 Subject: [PATCH] Allow tags containing capital letters in org-agenda-filter * lisp/org-agenda.el (org-agenda-filter): Downcase tags in the search string provided by user. This is needed because all the tags stored in 'tags text property are downcased. Example when old code did not work is a tag like COMMON. The user would not expect a need to input +|-common in the agenda filter instead of +|-COMMON. The latter would only result in "COMMON filter ignored because tag/category is not represented". --- lisp/org-agenda.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index dedf7e5bb..3f311c724 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7767,8 +7767,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 s tag-list) - (add-to-list 'ft (concat pm s) 'append 'equal)) + ((member (downcase s) tag-list) + (add-to-list 'ft (concat pm (downcase s)) 'append 'equal)) ((member s category-list) (add-to-list 'fc (concat pm ; Remove temporary double quotes. (replace-regexp-in-string "\"\\(.*\\)\"" "\\1" s))