forked from mirrors/org-mode
ox: Fix min level computation
* lisp/ox.el (org-export--get-min-level): Ignore footnote section when computing minimal headline level.
This commit is contained in:
parent
ce6339e292
commit
a7535ca353
|
@ -1784,9 +1784,9 @@ OPTIONS is a plist holding export options."
|
||||||
(mapc
|
(mapc
|
||||||
(lambda (blob)
|
(lambda (blob)
|
||||||
(when (and (eq (org-element-type blob) 'headline)
|
(when (and (eq (org-element-type blob) 'headline)
|
||||||
|
(not (org-element-property :footnote-section-p blob))
|
||||||
(not (memq blob (plist-get options :ignore-list))))
|
(not (memq blob (plist-get options :ignore-list))))
|
||||||
(setq min-level
|
(setq min-level (min (org-element-property :level blob) min-level)))
|
||||||
(min (org-element-property :level blob) min-level)))
|
|
||||||
(when (= min-level 1) (throw 'exit 1)))
|
(when (= min-level 1) (throw 'exit 1)))
|
||||||
(org-element-contents data))
|
(org-element-contents data))
|
||||||
;; If no headline was found, for the sake of consistency, set
|
;; If no headline was found, for the sake of consistency, set
|
||||||
|
|
Loading…
Reference in New Issue