From 588a42d4fd2e59e3f69d5a3f9ea00ff3a64f5df9 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Fri, 8 Jan 2010 17:34:44 +0100 Subject: [PATCH] org-exp-generic.el: Fix bug with closing bodies Reported by Christian Lasarczyk, patch by Wes Hardaker --- contrib/ChangeLog | 5 +++++ contrib/lisp/org-export-generic.el | 9 +++++++++ 2 files changed, 14 insertions(+) diff --git a/contrib/ChangeLog b/contrib/ChangeLog index e7b05964..28bc2e08 100644 --- a/contrib/ChangeLog +++ b/contrib/ChangeLog @@ -1,3 +1,8 @@ +2010-01-08 Carsten Dominik + + * lisp/org-export-generic.el (org-export-generic): Close body + levels. + 2009-11-20 Carsten Dominik * lisp/org-export-generic.el (org-set-generic-type): Use `aput'. diff --git a/contrib/lisp/org-export-generic.el b/contrib/lisp/org-export-generic.el index 90517c00..7b4a30d4 100644 --- a/contrib/lisp/org-export-generic.el +++ b/contrib/lisp/org-export-generic.el @@ -949,6 +949,15 @@ underlined headlines. The default is 3." (org-export-generic-wrap line bodylinewrap)) (setq line line))) (insert (format bodylineform line))))) + + ;; if we're at a level > 0; insert the closing body level stuff + (let ((counter 0)) + (while (> (- level counter) 0) + (insert + (org-export-generic-format export-plist :body-section-suffix 0 + (- level counter))) + (setq counter (1+ counter)))) + (org-export-generic-check-section "bottom") (org-export-generic-push-links (nreverse link-buffer)) -- 2.11.4.GIT