diff --git a/modules/input/chinese/config.el b/modules/input/chinese/config.el index b74f84d15..204bc0513 100644 --- a/modules/input/chinese/config.el +++ b/modules/input/chinese/config.el @@ -36,11 +36,15 @@ when exporting org-mode to html." :filter-args #'org-html-paragraph (cl-destructuring-bind (paragraph contents info) args - (let* ((fix-regexp "[[:multibyte:]]") + (let* ((fix-regexp "[[:multibyte:]a-zA-Z0-9]") (origin-contents contents) (fixed-contents (replace-regexp-in-string - (concat "\\(" fix-regexp "\\) *\n *\\(" fix-regexp "\\)") - "\\1\\2" + (concat "\\(" + fix-regexp + "\\) *\\(<[Bb][Rr] */>\\)?\n *\\(" + fix-regexp + "\\)") + "\\1\\3" origin-contents))) (list paragraph fixed-contents info)))) diff --git a/modules/input/japanese/config.el b/modules/input/japanese/config.el index dcdbdb0d5..e94078c00 100644 --- a/modules/input/japanese/config.el +++ b/modules/input/japanese/config.el @@ -46,11 +46,15 @@ when exporting org-mode to html." :filter-args #'org-html-paragraph (cl-destructuring-bind (paragraph contents info) args - (let* ((fix-regexp "[[:multibyte:]]") + (let* ((fix-regexp "[[:multibyte:]a-zA-Z0-9]") (origin-contents contents) (fixed-contents (replace-regexp-in-string - (concat "\\(" fix-regexp "\\) *\n *\\(" fix-regexp "\\)") - "\\1\\2" + (concat "\\(" + fix-regexp + "\\) *\\(<[Bb][Rr] */>\\)?\n *\\(" + fix-regexp + "\\)") + "\\1\\3" origin-contents))) (list paragraph fixed-contents info))))