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

Fixes #5821

2 files changed, 15 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
 
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index 6a9919233..39f7bf903 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -133,10 +133,18 @@ tests =
         "**foo *bar* baz**" =?>
         para (strong (text "foo " <> emph (text "bar") <> text " baz"))
 
+      , "Opening asterisk can't be preceded by another one" =:
+        "**foo*" =?>
+        para "**foo*"
+
       , "Asterisk between words does not terminate emphasis" =:
         "*foo*bar*" =?>
         para (emph $ "foo*bar")
 
+      , "Asterisks between words do not terminate strong" =:
+        "**foo**bar**" =?>
+        para (strong $ "foo**bar")
+
       , test emacsMuse "Underline"
         ("_Underline_" =?> para (underlineSpan "Underline"))