Преглед на файлове

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.
Nicolas Goaziou преди 15 години
родител
ревизия
478eabccbd
променени са 1 файла, в които са добавени 4 реда и са изтрити 1 реда
  1. 4 1
      lisp/org-exp.el

+ 4 - 1
lisp/org-exp.el

@@ -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.