summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-03-26 16:59:29 +0200
committerJohn MacFarlane <jgm@berkeley.edu>2017-03-26 16:59:29 +0200
commit1b967d90365090a8d55e3c400262c8af51a60bf7 (patch)
tree74d9342f10cd69f5de4dd43b0e85382634060fff
parentb085b9f4a712d902ca9e50e4d4b32b403c56e0ae (diff)
Ms writre: Added some escapes.
-rw-r--r--src/Text/Pandoc/Writers/Ms.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs
index 80b56193c..ce3907bbe 100644
--- 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]")
, ('-', "\\-")
, ('@', "\\@")
, ('\\', "\\\\")