mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

Merge branch 'maint'

This commit is contained in:
Nicolas Goaziou 2021-06-02 17:22:41 +02:00
parent a0a87d55cb 093c94e31b
commit f70e36252a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ox-texinfo.el
View File

@ -1233,13 +1233,13 @@ holding contextual information."
:texinfo-entries-cache)))
(cached-entries (gethash scope cache 'no-cache)))
(if (not (eq cached-entries 'no-cache)) cached-entries
(let ((sections (org-texinfo--sectioning-structure info)))
(let* ((sections (org-texinfo--sectioning-structure info))
(max-depth (length sections)))
(puthash scope
(cl-remove-if
(lambda (h)
(or (org-not-nil (org-export-get-node-property :COPYING h t))
(>= (org-export-get-relative-level h info)
(length sections))))
(< max-depth (org-export-get-relative-level h info))))
(org-export-collect-headlines info 1 scope))
cache)))))