emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals-release/org 75ccb97: Allow tags containing capital lett


From: ELPA Syncer
Subject: [elpa] externals-release/org 75ccb97: Allow tags containing capital letters in org-agenda-filter
Date: Mon, 15 Feb 2021 00:57:07 -0500 (EST)

branch: externals-release/org
commit 75ccb9719fc0d6822e7e69e9d3079f884cfb96ea
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Kyle Meyer <kyle@kyleam.com>

    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 dedf7e5..3f311c7 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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]