Non-breaking spaces should be replaced with a space and not removed

Fixes #1339
This commit is contained in:
Alex Murray
2018-11-14 11:36:36 +10:30
parent 7b6bccd49a
commit 283ba93b8a

View File

@ -247,6 +247,7 @@ unless PREFER-HTML is non-nil."
<EFBFBD><EFBFBD>]" nil t) <EFBFBD><EFBFBD>]" nil t)
(replace-match (replace-match
(cond (cond
((string= (match-string 0) "<EFBFBD>") "'")
((string= (match-string 0) "<EFBFBD>") " ") ((string= (match-string 0) "<EFBFBD>") " ")
(t "")))) (t ""))))
(buffer-string))) (buffer-string)))