diff options
| author | Carsten Dominik <carsten.dominik@gmail.com> | 2008-10-25 12:40:13 +0200 |
|---|---|---|
| committer | Carsten Dominik <carsten.dominik@gmail.com> | 2008-10-25 12:40:13 +0200 |
| commit | d374f9e2172d75c8bca26e6ac55bc29eb6ab1c8f (patch) | |
| tree | 0e38a55ddd31e414a3c4290ecb9b92cca9af49a4 | |
| parent | 88d4405e86fe4b1fbf7a7d55816612d0b0146d57 (diff) | |
Fix bug in tags filter related to case-sensitive comparisons.release_6.10b
| -rwxr-xr-x | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/org-agenda.el | 6 |
2 files changed, 9 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9e5f203a3..db3941f5b 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index db2eb94bf..80d6f5e3a 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -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)) |