tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Fix commit b83c03

This commit is contained in:
Bastien Guerry 2013-05-16 17:07:21 +02:00
parent b83c0309a7
commit 37d526e06e
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org.el
View File

@ -4905,10 +4905,12 @@ Support for group tags is controlled by the option
(setq ret (save-match-data
(org-set-regexps-and-options-for-tags)))))
;; Append setupfile tags to existing tags
(setq org-file-tags (append org-file-tags (nth 0 ret))
org-tag-alist (append org-tag-alist (nth 1 ret))
(setq org-file-tags
(delq nil (append org-file-tags (nth 0 ret)))
org-tag-alist
(delq nil (append org-tag-alist (nth 1 ret)))
org-tag-groups-alist
(append org-tag-groups-alist (nth 2 ret)))))
(delq nil (append org-tag-groups-alist (nth 2 ret))))))
(and ext-setup-or-nil
(string-match re ext-setup-or-nil start)
(setq start (match-end 0)))