浏览代码

ox-texinfo: Small menu refactoring

* lisp/ox-texinfo.el (org-texinfo--menu-entries): Use
  `org-export-collect-headlines'.
Nicolas Goaziou 8 年之前
父节点
当前提交
1b415735ea
共有 1 个文件被更改,包括 4 次插入7 次删除
  1. 4 7
      lisp/ox-texinfo.el

+ 4 - 7
lisp/ox-texinfo.el

@@ -1214,13 +1214,10 @@ holding contextual information."
 	 (cached-entries (gethash scope cache 'no-cache)))
     (if (not (eq cached-entries 'no-cache)) cached-entries
       (puthash scope
-	       (org-element-map (org-element-contents scope) 'headline
-		 (lambda (h)
-		   (and (not (org-not-nil (org-element-property :COPYING h)))
-			(not (org-element-property :footnote-section-p h))
-			(not (org-export-low-level-p h info))
-			h))
-		 info nil 'headline)
+	       (cl-remove-if
+		(lambda (h)
+		  (org-not-nil (org-export-get-node-property :COPYING h t)))
+		(org-export-collect-headlines info nil scope))
 	       cache))))
 
 ;;;; Node Property