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)
|
||||
#'identity info t)))
|
||||
(unless (org-element-type-p first 'section)
|
||||
(apply #'org-element-set-contents
|
||||
hl
|
||||
(cons `(section (:parent ,hl)) contents)))))))
|
||||
(org-element-create 'section nil contents))))))
|
||||
info)
|
||||
tree)
|
||||
|
||||
|
|
Loading…
Reference in a new issue