@@ -686,7 +686,7 @@ math = try $ do
686 return $ TeX ("$" ++ (joinWithSep " " words) ++ "$")
686 return $ TeX ("$" ++ (joinWithSep " " words) ++ "$")
688emph = ((enclosed (char '*') (char '*') inline) <|>
688emph = ((enclosed (char '*') (char '*') inline) <|>
689− (enclosed (char '_') (char '_') inline)) >>=
689+ (enclosed (char '_') (char '_' >> notFollowedBy alphaNum) inline)) >>=
690 return . Emph . normalizeSpaces
690 return . Emph . normalizeSpaces
692strong = ((enclosed (string "**") (try $ string "**") inline) <|>
692strong = ((enclosed (string "**") (try $ string "**") inline) <|>