diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 3 | ||||
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 4 |
2 files changed, 5 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index b7a1ce7ad..104fa914f 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -807,8 +807,7 @@ emphasisBetween p = try $ trimInlinesF . mconcat <$ atStart <* p <* notFollowedBy space - <*> many1Till inline (try $ noSpaceBefore *> p) - <* notFollowedBy alphaNum + <*> many1Till inline (try $ noSpaceBefore *> p <* notFollowedBy alphaNum) -- | Parse an inline tag, such as @\<em>@ and @\<strong>@. inlineTag :: PandocMonad m diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 0ca94de98..6a9919233 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -133,6 +133,10 @@ tests = "**foo *bar* baz**" =?> para (strong (text "foo " <> emph (text "bar") <> text " baz")) + , "Asterisk between words does not terminate emphasis" =: + "*foo*bar*" =?> + para (emph $ "foo*bar") + , test emacsMuse "Underline" ("_Underline_" =?> para (underlineSpan "Underline")) |