From c6e97d88cf681aa572df1aa5fc39a4ca452f317d Mon Sep 17 00:00:00 2001 From: Matt Lundin Date: Sat, 30 Apr 2011 20:19:54 +0000 Subject: [PATCH] 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. --- lisp/org.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index 61668ce0c..afcd4cb30 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) -- 2.11.4.GIT