From 6c07e431129c27bf6e541329dc140aaa23e7ac79 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 23 Mar 2017 17:20:06 +0100
Subject: Ms writer: use .IP for more standard definition lists.

---
 src/Text/Pandoc/Writers/Ms.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/Text/Pandoc/Writers')

diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs
index e716b147d..0ca3ddea9 100644
--- a/src/Text/Pandoc/Writers/Ms.hs
+++ b/src/Text/Pandoc/Writers/Ms.hs
@@ -357,8 +357,7 @@ definitionListItemToMs opts (label, defs) = do
                                   mapM (\item -> blockToMs opts item) rest
                         first' <- blockToMs opts first
                         return $ first' $$ text ".RS" $$ rest' $$ text ".RE"
-  return $ text ".XP" $$ nowrap (text ".B \"" <> labelText <> text "\"")
-                      $$ text "\\~\\~" <> contents
+  return $ nowrap (text ".IP \"" <> labelText <> text "\"") $$ contents
 
 -- | Convert list of Pandoc block elements to man.
 blockListToMs :: PandocMonad m
-- 
cgit v1.2.3