From 1b967d90365090a8d55e3c400262c8af51a60bf7 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 26 Mar 2017 16:59:29 +0200
Subject: Ms writre: Added some escapes.

---
 src/Text/Pandoc/Writers/Ms.hs | 6 ++++--
 1 file 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]")
               , ('-', "\\-")
               , ('@', "\\@")
               , ('\\', "\\\\")
-- 
cgit v1.2.3