mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-25 21:32:53 +00:00
Code Releases Activity

Tags: Use internal tags list for agenda

Browse source 
An agenda item carries a full list of tags.  The list must normally be
made, but not during a tags scan.  So now the tags scan does pass on
its list instead, which should make things faster.
This commit is contained in:
Carsten Dominik 2009-03-04 09:46:19 +01:00
parent 7cd006b1d7
commit 3d02600149
2 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -3,6 +3,8 @@
* org.el (org-scan-tags): Improve tag inheritance.
(org-scan-tags, org-make-tags-matcher): Make tag comparison
case-sensitive.
(org-scan-tags): Use the internal tags list instead of creating it
from scratch.
2009-03-03 Carsten Dominik <carsten.dominik@gmail.com>

14
lisp/org.el
View file

@ -9800,8 +9800,8 @@ only lines with a TODO keyword are included in the output."
(org-remove-occur-highlights))
(while (re-search-forward re nil t)
(catch :skip
(setq todo (if (match-end 1) (match-string 2))
tags (if (match-end 4) (match-string 4)))
(setq todo (if (match-end 1) (org-match-string-no-properties 2))
tags (if (match-end 4) (org-match-string-no-properties 4)))
(goto-char (setq lspos (1+ (match-beginning 0))))
(setq level (org-reduced-level (funcall outline-level))
category (org-get-category))
@ -9822,15 +9822,14 @@ only lines with a TODO keyword are included in the output."
(apply 'append (mapcar 'cdr (reverse tags-alist)))
tags))
(when org-use-tag-inheritance
(setcdr (car tags-alist)
(org-remove-uniherited-tags (cdar tags-alist)))
(setcdr (car tags-alist)
(mapcar (lambda (x)
(setq x (copy-sequence x))
(org-add-prop-inherited x))
(cdar tags-alist))))
(when (and tags org-use-tag-inheritance
(not (eq t org-use-tag-inheritance)))
(or (not (eq t org-use-tag-inheritance))
org-tags-exclude-from-inheritance))
;; selective inheritance, remove uninherited ones
(setcdr (car tags-alist)
(org-remove-uniherited-tags (cdar tags-alist))))
@ -9862,7 +9861,10 @@ only lines with a TODO keyword are included in the output."
(if org-tags-match-list-sublevels
(make-string (1- level) ?.) "")
(org-get-heading))
category (org-get-tags-at))
category
;(org-get-tags-at)
tags-list
)
priority (org-get-priority txt))
(goto-char lspos)
(setq marker (org-agenda-new-marker))