Escape '\160' as " ", not " " in XML.

"nbsp" isn't a predefined XML entity.


git-svn-id: https://pandoc.googlecode.com/svn/trunk@1303 788f1e2b-df1e-0410-8736-df70ead52e1b

Text/Pandoc/XML.hs

@@ -38,12 +38,12 @@ import Text.PrettyPrint.HughesPJ
 -- | Escape one character as needed for XML.
 escapeCharForXML :: Char -> String
 escapeCharForXML x = case x of
-                       '&'  -> "&"
-                       '<'  -> "&lt;"
-                       '>'  -> "&gt;"
-                       '"'  -> "&quot;"
-                       '\160' -> "&nbsp;"
-                       c    -> [c]
+                       '&'    -> "&amp;"
+                       '<'    -> "&lt;"
+                       '>'    -> "&gt;"
+                       '"'    -> "&quot;"
+                       '\160' -> "&#160;"
+                       c      -> [c]
 
 -- | True if the character needs to be escaped.
 needsEscaping :: Char -> Bool

tests/writer.docbook

@@ -606,7 +606,7 @@ These should not be escaped:  \$ \\ \> \[ \{
         Should not be a list item:
       </para>
       <para>
-        M.A.&nbsp;2007
+        M.A.&#160;2007
       </para>
       <para>
         B. Williams
@@ -795,12 +795,12 @@ These should not be escaped:  \$ \\ \&gt; \[ \{
     <para>
       Superscripts: a<superscript>bc</superscript>d
       a<superscript><emphasis>hello</emphasis></superscript>
-      a<superscript>hello&nbsp;there</superscript>.
+      a<superscript>hello&#160;there</superscript>.
     </para>
     <para>
       Subscripts: H<subscript>2</subscript>O,
       H<subscript>23</subscript>O,
-      H<subscript>many&nbsp;of&nbsp;them</subscript>O.
+      H<subscript>many&#160;of&#160;them</subscript>O.
     </para>
     <para>
       These should not be superscripts or subscripts, because of the