From ffbd7b63bf7290b6cd6fc3f1b41110876864fe83 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sun, 2 Aug 2020 01:33:51 -0400 Subject: [PATCH] Fix #3654: prevent org-export-to-html removing line-breaks When either :input chinese or :input japanese is enabled, due to overzealous advice. --- modules/input/chinese/config.el | 7 +------ modules/input/japanese/config.el | 7 +------ 2 files changed, 2 insertions(+), 12 deletions(-) diff --git a/modules/input/chinese/config.el b/modules/input/chinese/config.el index 1736ba3fd..7cbc99202 100644 --- a/modules/input/chinese/config.el +++ b/modules/input/chinese/config.el @@ -40,14 +40,9 @@ when exporting org-mode to html." :filter-args #'org-html-paragraph (cl-destructuring-bind (paragraph contents info) args (let* ((fix-regexp "[[:multibyte:]]") - (origin-contents - (replace-regexp-in-string - "<[Bb][Rr] */>" - "" - contents)) (fixed-contents (replace-regexp-in-string (concat "\\(" fix-regexp "\\) *\n *\\(" fix-regexp "\\)") "\\1\\2" - origin-contents))) + contents))) (list paragraph fixed-contents info)))) diff --git a/modules/input/japanese/config.el b/modules/input/japanese/config.el index 407c029e3..39f5041eb 100644 --- a/modules/input/japanese/config.el +++ b/modules/input/japanese/config.el @@ -47,14 +47,9 @@ when exporting org-mode to html." :filter-args #'org-html-paragraph (cl-destructuring-bind (paragraph contents info) args (let* ((fix-regexp "[[:multibyte:]]") - (origin-contents - (replace-regexp-in-string - "<[Bb][Rr] */>" - "" - contents)) (fixed-contents (replace-regexp-in-string (concat "\\(" fix-regexp "\\) *\n *\\(" fix-regexp "\\)") "\\1\\2" - origin-contents))) + contents))) (list paragraph fixed-contents info))))