浏览代码

ox-html: Fix verse blocks

* lisp/ox-html.el (org-html-verse-block): Add missing line break at
  the end of each line in verse environments.

Reported-by: Skip Collins <skip.collins@gmail.com>
<http://permalink.gmane.org/gmane.emacs.orgmode/112537>
Nicolas Goaziou 8 年之前
父节点
当前提交
64a5f9a596
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      lisp/ox-html.el

+ 2 - 2
lisp/ox-html.el

@@ -3600,8 +3600,8 @@ contextual information."
 	   ;; remove any trailing "br" close-tag so as to avoid
 	   ;; duplicates.
 	   (let* ((br (org-html-close-tag "br" nil info))
-		  (re (format "\\(%s\\)[ \t]*$" (regexp-quote br))))
-	     (replace-regexp-in-string re br contents)))))
+		  (re (format "\\(?:%s\\)?[ \t]*\n" (regexp-quote br))))
+	     (replace-regexp-in-string re (concat br "\n") contents)))))
 
 
 ;;; Filter Functions