org-exp: ensure list ending marker is inserted on a line on its own

* lisp/org-exp.el (org-export-mark-list-ending): insert additional
  newline characters if end-list-marker is at a wrong position.

This solves a problem arising when exporting a region to HTML with a
list ending at the end of region. The marker would then be inserted on
the last line, following text from the list.
This commit is contained in:
Nicolas Goaziou 2010-12-22 09:54:14 +01:00
parent 1d3db31ca7
commit 478eabccbd
1 changed files with 4 additions and 1 deletions

View File

@ -1669,7 +1669,10 @@ These special cookies will later be interpreted by the backend.
(when (and (not (eq org-list-ending-method 'indent))
(looking-at (org-list-end-re)))
(replace-match "\n"))
(insert end-list-marker)))))
(unless (bolp) (insert "\n"))
(unless (looking-at end-list-marker)
(insert end-list-marker))
(unless (eolp) (insert "\n"))))))
;; We need to divide backends into 3 categories.
(cond
;; 1. Backends using `org-list-parse-list' do not need markers.