tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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.
This commit is contained in:
Carsten Dominik 2009-03-04 09:21:45 +01:00
parent 3a959f9d30
commit 7cd006b1d7
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -1,6 +1,8 @@
2009-03-04 Carsten Dominik <carsten.dominik@gmail.com>
* 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 <carsten.dominik@gmail.com>

6
lisp/org.el
View File

@ -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))