From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date: Thu, 14 Aug 2014 12:08:16 +0000 (+0200)
Subject: ox-texinfo: Fix parse tree corruption
X-Git-Tag: release_8.2.8~33
X-Git-Url: https://repo.or.cz/w/org-mode.git/commitdiff_plain/1adec31993dc379dc60337245e05010645e4c40b

ox-texinfo: Fix parse tree corruption

* lisp/ox-texinfo.el (org-texinfo--normalize-headlines): Properly add
  a section to the contents.
---

diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el
index 2dc77fdef..c4b2ebf8c 100644
--- a/lisp/ox-texinfo.el
+++ b/lisp/ox-texinfo.el
@@ -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)