emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/org f70e362: Merge branch 'maint'


From: ELPA Syncer
Subject: [elpa] externals/org f70e362: Merge branch 'maint'
Date: Wed, 2 Jun 2021 11:57:19 -0400 (EDT)

branch: externals/org
commit f70e36252ac4eb04c67a60aec7d39515e10277bf
Merge: a0a87d5 093c94e
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Commit: Nicolas Goaziou <mail@nicolasgoaziou.fr>

    Merge branch 'maint'
---
 lisp/ox-texinfo.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el
index 22e93c9..5d09cc2 100644
--- a/lisp/ox-texinfo.el
+++ b/lisp/ox-texinfo.el
@@ -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)))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]