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

Agenda: Fix bug with tag inheritance

Browse source 
Jeff Mickey writes:

>  Hey all,
>
>  To reproduce:
>
>  * TODO Make Bicycle :project:workshop:
>  ** TODO Buy stuff
>  ** TODO Build stuff
>  ** TODO Test stuff
>
>  (setq org-use-tag-inheritance t)
>  (setq org-tags-exclude-from-inheritance '("project"))
>
>  <C-a m> to type in a match string to search, I type in "project"
>
>  I expected to see:
>  TODO Make Bicycle
>
>  I saw:
>  TODO Make Bicycle
>  .TODO Buy stuff
>  .TODO Build stuff
>  .TODO Test stuff
>
>  I assume this isn't what is supposed to happen.  I'm currently at work
>  so I can't investigate and provide a diff, but it seems like there
>  needs to be a check in org.el:10144:org-get-tags-at to remove tags
>  that are explicitly excluded from inheritance.

This commit fixes the bug.
This commit is contained in:
Carsten Dominik 2009-03-04 09:11:39 +01:00
parent 3b396b0e77
commit 3a959f9d30
2 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2009-03-04 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-scan-tags): Improve tag inheritance.
2009-03-03 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-add-planning-info): Fix bug with looking for keyword

2
lisp/org.el
View file

@ -9822,6 +9822,8 @@ 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))