Explorar el Código

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 hace 15 años
padre
commit
478eabccbd
Se han modificado 1 ficheros con 4 adiciones y 1 borrados
  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.