ox-texinfo: Fix parse tree corruption

* lisp/ox-texinfo.el (org-texinfo--normalize-headlines): Properly add
  a section to the contents.
This commit is contained in:
Nicolas Goaziou 2014-08-14 14:08:16 +02:00
parent 57644f7ebf
commit 1adec31993
1 changed files with 3 additions and 2 deletions

View File

@ -425,8 +425,9 @@ Return new tree."
(let ((first (org-element-map contents '(headline section)
#'identity info t)))
(unless (eq (org-element-type first) 'section)
(org-element-set-contents
hl (cons `(section (:parent ,hl)) contents)))))))
(apply #'org-element-set-contents
hl
(cons `(section (:parent ,hl)) contents)))))))
info)
tree)