Ms writre: Added some escapes.

2017-03-26 16:59:29 +02:00 · 2017-03-26 16:59:29 +02:00 · 1b967d9036
commit 1b967d9036
parent b085b9f4a7
1 changed files with 4 additions and 2 deletions
--- a/src/Text/Pandoc/Writers/Ms.hs
+++ b/src/Text/Pandoc/Writers/Ms.hs
@ -118,12 +118,14 @@ msEscapes :: Map.Map Char String
 msEscapes = Map.fromList $
              [ ('\160', "\\ ")
              , ('\'', "\\[aq]")
-              , ('’', "'")
+              , ('`', "\\`")
+              , ('\8217', "'")
              , ('"', "\\\"")
              , ('\x2014', "\\[em]")
              , ('\x2013', "\\[en]")
              , ('\x2026', "\\&...")
-              , ('|', "\\[u007C]")  -- because we use | for inline math
+              , ('~', "\\[ti]")
+              , ('^', "\\[ha]")
              , ('-', "\\-")
              , ('@', "\\@")
              , ('\\', "\\\\")