@@ -616,7 +616,8 @@ simpleInline border construct = try $ do
616 attr <- attributes
616 attr <- attributes
617 body <- trimInlines . mconcat <$>
617 body <- trimInlines . mconcat <$>
618 withQuoteContext InSingleQuote
618 withQuoteContext InSingleQuote
619+ (manyTill (notFollowedBy newline >> inline)
619− (manyTill inline (try border <* notFollowedBy alphaNum))
620+ (try border <* notFollowedBy alphaNum))
620 return $ construct $
621 return $ construct $
621 if attr == nullAttr
622 if attr == nullAttr
622 then body
623 then body