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)