ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org-exp.el
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)) (when (and (not (eq org-list-ending-method 'indent))
(looking-at (org-list-end-re))) (looking-at (org-list-end-re)))
(replace-match "\n")) (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. ;; We need to divide backends into 3 categories.
(cond (cond
;; 1. Backends using `org-list-parse-list' do not need markers. ;; 1. Backends using `org-list-parse-list' do not need markers.