diff options
author | Matt Lundin <mdl@imapmail.org> | 2011-04-30 20:19:54 +0000 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2011-05-02 09:13:06 +0200 |
commit | c6e97d88cf681aa572df1aa5fc39a4ca452f317d (patch) | |
tree | 3342c063d077423d626ac8bec71202997ef28366 | |
parent | 7bab535b79a332b330f2b1e79b2948d80ce64243 (diff) | |
download | org-mode-c6e97d88cf681aa572df1aa5fc39a4ca452f317d.tar.gz |
org-get-tags-at: exclude filetags when local is t
* lisp/org.el (org-get-tags-at): Don't include filetags if local is t.
The function org-get-tags-at and the functions that called it were
including inherited file tags even if the user requested only local
tags. This patch fixes the behavior.
-rw-r--r-- | lisp/org.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index 61668ce..afcd4cb 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -12798,7 +12798,9 @@ ignore inherited ones." (or (org-up-heading-safe) (error nil)) (setq parent t))) (error nil))))) - (append (org-remove-uniherited-tags org-file-tags) tags))))) + (if local + tags + (append (org-remove-uniherited-tags org-file-tags) tags)))))) (defun org-add-prop-inherited (s) (add-text-properties 0 (length s) '(inherited t) s) |