@@ -510,9 +510,7 @@ inlineListStartsWithAlnum _ = return False
510510renderInlineList :: PandocMonad m
511511 => [Inline]
512512 -> Muse m Doc
513−renderInlineList [] = do
514− start <- asks envInlineStart
515− pure $ if start then "<verbatim></verbatim>" else ""
513+renderInlineList [] = pure ""
516514renderInlineList (x:xs) = do
517515 start <- asks envInlineStart
518516 afterSpace <- asks envAfterSpace
@@ -545,8 +543,11 @@ inlineListToMuse :: PandocMonad m
545543inlineListToMuse lst = do
546544 lst' <- normalizeInlineList . fixNotes <$> preprocessInlineList (map (removeKeyValues . replaceSmallCaps) lst)
547545 insideAsterisks <- asks envInsideAsterisks
546+ start <- asks envInlineStart
548547 modify $ \st -> st { stUseTags = False } -- Previous character is likely a '>' or some other markup
549− local (\env -> env { envNearAsterisks = insideAsterisks }) $ renderInlineList lst'
548+ if start && null lst'
549+ then pure "<verbatim></verbatim>"
550+ else local (\env -> env { envNearAsterisks = insideAsterisks }) $ renderInlineList lst'
550551
551552inlineListToMuse' :: PandocMonad m => [Inline] -> Muse m Doc
552553inlineListToMuse' lst = do