daniel/ox-rst
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Replace multiple whitespaces from markup text

Browse Source
This commit is contained in:
IGARASHI Masanao
2015-11-14 00:16:54 +09:00
parent 4845c21c31
commit 9279bdef9b
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
ox-rst.el
View File

@@ -401,7 +401,8 @@ possible. It doesn't apply to `inlinetask' elements."
(defun org-rst--text-markup (text markup) (defun org-rst--text-markup (text markup)
"Format TEXT depending on MARKUP text markup. "Format TEXT depending on MARKUP text markup.
See `org-rst-text-markup-alist' for details." See `org-rst-text-markup-alist' for details."
(let ((fmt (cdr (assq markup org-rst-text-markup-alist)))) (let ((fmt (cdr (assq markup org-rst-text-markup-alist)))
(text (replace-regexp-in-string "[ \t\n]+" " " text)))
(cond (cond
;; No format string: Return raw text. ;; No format string: Return raw text.
((not fmt) text) ((not fmt) text)