From 7cd006b1d72eac8bcec76f98cf85ccf6b27c4f5a Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Wed, 4 Mar 2009 09:21:45 +0100 Subject: [PATCH] Tags: Make matches case-sensitive Tags matches used to be case-insensitive. But this causes too many problems in the code, o from now on, tag matches will be case-sensitive. --- lisp/ChangeLog | 2 ++ lisp/org.el | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 747e710f8..8cc2a3de1 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,8 @@ 2009-03-04 Carsten Dominik * org.el (org-scan-tags): Improve tag inheritance. + (org-scan-tags, org-make-tags-matcher): Make tag comparison + case-sensitive. 2009-03-03 Carsten Dominik diff --git a/lisp/org.el b/lisp/org.el index abdd77474..6207b0654 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -9788,7 +9788,7 @@ only lines with a TODO keyword are included in the output." (buffer-name (buffer-base-buffer))))))) (case-fold-search nil) lspos tags tags-list - (tags-alist (list (cons 0 (mapcar 'downcase org-file-tags)))) + (tags-alist (list (cons 0 org-file-tags))) (llast 0) rtn rtn1 level category i txt todo marker entry priority) (when (not (or (member action '(agenda sparse-tree)) (functionp action))) @@ -9813,7 +9813,7 @@ only lines with a TODO keyword are included in the output." (setq i (1- i))) ;; add the next tags (when tags - (setq tags (mapcar 'downcase (org-split-string tags ":")) + (setq tags (org-split-string tags ":") tags-alist (cons (cons level tags) tags-alist))) ;; compile tags for current headline @@ -10030,7 +10030,7 @@ also TODO lines." `(,po (or ,gv "") ,pv) `(,po (string-to-number (or ,gv "")) ,(string-to-number pv) )))) - (t `(member ,(downcase tag) tags-list))) + (t `(member tag tags-list))) mm (if minus (list 'not mm) mm) term rest) (push mm tagsmatcher))