@@ -43,7 +43,7 @@ import Prelude
4343import Control.Monad
4444import Control.Monad.Except (throwError)
4545import Data.Bifunctor
46−import Data.Char (isLetter)
46+import Data.Char (isLetter, isDigit)
4747import Data.Default
4848import Data.List (intercalate)
4949import Data.List.Split (splitOn)
@@ -841,7 +841,7 @@ enclosedInlines :: (PandocMonad m, Show a, Show b)
841841 -> MuseParser m b
842842 -> MuseParser m (F Inlines)
843843enclosedInlines start end = try $
844− trimInlinesF . mconcat <$> (enclosed (atStart start) end inline <* notFollowedBy (satisfy isLetter))
844+ trimInlinesF . mconcat <$> (enclosed (atStart start) end inline <* notFollowedBy (satisfy ((||) <$> isLetter <*> isDigit)))
845845
846846-- | Parse an inline tag, such as @\<em>@ and @\<strong>@.
847847inlineTag :: PandocMonad m