From a98e2b7c42d6ac9062677bf6d76caa3cf854dd9c Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Sun, 21 Oct 2018 20:19:29 +0300
Subject: Muse writer: use lightweight markup after </em> tag

---
 src/Text/Pandoc/Writers/Muse.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
index 1374cdde3..8571ac402 100644
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@@ -548,6 +548,7 @@ inlineToMuse (Emph lst) = do
   let lst' = normalizeInlineList lst
   if useTags || null lst' || startsWithSpace lst' || endsWithSpace lst'
     then do contents <- inlineListToMuse lst'
+            modify $ \st -> st { stUseTags = False }
             return $ "<em>" <> contents <> "</em>"
     else do contents <- local (\env -> env { envInsideAsterisks = True }) $ inlineListToMuse lst'
             modify $ \st -> st { stUseTags = True }
-- 
cgit v1.2.3