浏览代码

Fix commit b83c03

Bastien Guerry 11 年之前
父节点
当前提交
37d526e06e
共有 1 个文件被更改,包括 5 次插入3 次删除
  1. 5 3
      lisp/org.el

+ 5 - 3
lisp/org.el

@@ -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)))