forked from mirrors/org-mode
org-texinfo--normalize-headlines: Use `org-element-create'
This commit is contained in:
parent
a43cc8c9aa
commit
6a7aee2c35
|
@ -502,9 +502,7 @@ Return new tree."
|
||||||
(let ((first (org-element-map contents '(headline section)
|
(let ((first (org-element-map contents '(headline section)
|
||||||
#'identity info t)))
|
#'identity info t)))
|
||||||
(unless (org-element-type-p first 'section)
|
(unless (org-element-type-p first 'section)
|
||||||
(apply #'org-element-set-contents
|
(org-element-create 'section nil contents))))))
|
||||||
hl
|
|
||||||
(cons `(section (:parent ,hl)) contents)))))))
|
|
||||||
info)
|
info)
|
||||||
tree)
|
tree)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue