فهرست منبع

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.
Bastien Guerry 12 سال پیش
والد
کامیت
d307657b9d
1فایلهای تغییر یافته به همراه13 افزوده شده و 2 حذف شده
  1. 13 2
      lisp/org.el

+ 13 - 2
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)