diff options
| author | Carsten Dominik <carsten.dominik@gmail.com> | 2009-03-04 09:11:39 +0100 |
|---|---|---|
| committer | Carsten Dominik <carsten.dominik@gmail.com> | 2009-03-04 09:11:39 +0100 |
| commit | 3a959f9d30250005c65e28292bc619b5488c4e3d (patch) | |
| tree | 007a07586a7315bf90383ff67ec71745f05f4f7f | |
| parent | 3b396b0e77674454b0e9c8846b8cf682f6b54f6d (diff) | |
| download | org-mode-3a959f9d30250005c65e28292bc619b5488c4e3d.tar.gz | |
Agenda: Fix bug with tag inheritance
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.
| -rwxr-xr-x | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/org.el | 2 |
2 files changed, 6 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4ebbd67..747e710 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 diff --git a/lisp/org.el b/lisp/org.el index 88174f3..abdd774 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -9823,6 +9823,8 @@ only lines with a TODO keyword are included in the output." 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)) |