From d307657b9d7bc1d5c109187cfd563d8a978a5b23 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Fri, 5 Apr 2013 09:19:02 +0200 Subject: [PATCH] org.el (org-set-regexps-and-options): Process tags from an external setup file * org.el (org-set-regexps-and-options): Process tags from an external setup file. Thanks to Marcel van der Boom for reporting this bug. --- lisp/org.el | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 67d564cc7..524c75a1e 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -4806,8 +4806,8 @@ Support for group tags is controlled by the option (org-set-local 'org-file-tags nil) (let ((re (org-make-options-regexp '("FILETAGS" "TAGS"))) (splitre "[ \t]+") - tags ftags key value - (start 0)) + (start 0) + tags ftags key value) (save-excursion (save-restriction (widen) @@ -4894,6 +4894,17 @@ Support for group tags is controlled by the option (widen) (goto-char (point-min)) (while (or (and ext-setup-or-nil + (let (ret) + (with-temp-buffer + (insert ext-setup-or-nil) + (let ((major-mode 'org-mode)) + (org-set-regexps-and-options-for-tags) + (setq ret (list org-file-tags org-tag-alist + org-tag-groups-alist)))) + (setq org-file-tags (nth 0 ret) + org-tag-alist (nth 1 ret) + 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))) (and (setq ext-setup-or-nil nil start 0)