浏览代码

Merge branch 'maint'

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

+ 3 - 0
lisp/org-agenda.el

@@ -3752,6 +3752,9 @@ generating a new one."
 					     (delete-dups
 					      (mapcar 'downcase (org-get-tags-at))))))))))
 	(run-hooks 'org-agenda-finalize-hook)
+	(when org-agenda-top-headline-filter
+	  (org-agenda-filter-top-headline-apply
+	   org-agenda-top-headline-filter))
 	(when org-agenda-tag-filter
 	  (org-agenda-filter-apply org-agenda-tag-filter 'tag))
 	(when (get 'org-agenda-tag-filter :preset-filter)