Replace multiple whitespaces from markup text

2015-11-14 00:16:54 +09:00
parent 4845c21c31
commit 9279bdef9b
1 changed files with 2 additions and 1 deletions
--- a/ox-rst.el
+++ b/ox-rst.el
@@ -401,7 +401,8 @@ possible.  It doesn't apply to `inlinetask' elements."
 (defun org-rst--text-markup (text markup)
  "Format TEXT depending on MARKUP text markup.
 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
     ;; No format string: Return raw text.
     ((not fmt) text)