Muse reader: do not split series of asterisks into symbols and emphasis

Fixes #5821

1 files changed, 7 insertions, 0 deletions

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 104fa914f..8a0456981 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -755,6 +755,7 @@ inline' = whitespace
       <|> mathTag
       <|> inlineLiteralTag
       <|> str
+      <|> asterisks
       <|> symbol
       <?> "inline"
 
@@ -909,6 +910,12 @@ inlineLiteralTag = try $ fmap pure $ B.rawInline
 str :: PandocMonad m => MuseParser m (F Inlines)
 str = return . B.str <$> many1 alphaNum <* updateLastStrPos
 
+-- | Consume asterisks that were not used as emphasis opening.
+-- This prevents series of asterisks from being split into
+-- literal asterisk and emphasis opening.
+asterisks :: PandocMonad m => MuseParser m (F Inlines)
+asterisks = pure . B.str <$> many1 (char '*')
+
 symbol :: PandocMonad m => MuseParser m (F Inlines)
 symbol = pure . B.str . pure <$> nonspaceChar