mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-02-06 21:29:25 +00:00
Code

Fix bug in tags filter related to case-sensitive comparisons.

Browse Source
This commit is contained in:
Carsten Dominik 2008-10-25 12:40:13 +02:00
parent 88d4405e86
commit d374f9e217
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2008-10-25 Carsten Dominik <dominik@science.uva.nl>
* org-agenda.el (org-format-agenda-item)
(org-agenda-filter-make-matcher): Make sure tags are stored and
compared donwcased.
2008-10-23 Carsten Dominik <dominik@science.uva.nl>
* org.el (org-insert-todo-heading): Fix bug with force-heading

6
lisp/org-agenda.el
View File

@ -3750,7 +3750,7 @@ Any match of REMOVE-RE will be removed from TXT."
;; And finally add the text properties
(org-add-props rtn nil
'org-category (downcase category) 'tags tags
'org-category (downcase category) 'tags (mapcar 'downcase tags)
'org-highest-priority org-highest-priority
'org-lowest-priority org-lowest-priority
'prefix-length (- (length rtn) (length txt))
@ -3947,7 +3947,7 @@ HH:MM."
(t nil))))
(defsubst org-cmp-tag (a b)
"Compare the string values of categories of strings A and B."
"Compare the string values of the first tags of A and B."
(let ((ta (car (last (get-text-property 1 'tags a))))
(tb (car (last (get-text-property 1 'tags b)))))
(cond ((not ta) +1)
@ -4217,7 +4217,7 @@ to switch to narrowing."
(setq f1 '(not tags))
(if (string-match "[<=>]" x)
(setq f1 (org-agenda-filter-effort-form x))
(setq f1 (list 'member (substring x 1) 'tags)))
(setq f1 (list 'member (downcase (substring x 1)) 'tags)))
(if (equal (string-to-char x) ?-)
(setq f1 (list 'not f1))))
(push f1 f))