@@ -719,8 +719,9 @@ math = try $ do
720 return $ Math $ joinWithSep " " words
720 return $ Math $ joinWithSep " " words
722−emph = ((enclosed (char '*') (char '*') inline) <|>
722+emph = ((enclosed (char '*') (notFollowedBy' strong >> char '*') inline) <|>
723+ (enclosed (char '_') (notFollowedBy' strong >> char '_' >>
723− (enclosed (char '_') (char '_' >> notFollowedBy alphaNum) inline)) >>=
724+ notFollowedBy alphaNum) inline)) >>=
724 return . Emph . normalizeSpaces
725 return . Emph . normalizeSpaces
726strong = ((enclosed (string "**") (try $ string "**") inline) <|>
727strong = ((enclosed (string "**") (try $ string "**") inline) <|>