git.iko.soy/typeable/pandoc
on master help sign in
Fixed regression in parsing _emph_
128cf46John MacFarlane
src/Text/Pandoc/Readers/Markdown.hs+1−1
compare with master
unifiedsplit
@@ -1059,7 +1059,7 @@ strChar = noneOf (specialChars ++ " \t\n")
1059str :: GenParser Char ParserState Inline
1059str :: GenParser Char ParserState Inline
1060str = do
1060str = do
1061 a <- strChar
1061 a <- strChar
1062− as <- many (strChar <|> (try $ char '_' >>~ lookAhead strChar))
1062+ as <- many (strChar <|> (try $ char '_' >>~ lookAhead alphaNum))
1063 let result = a:as
1063 let result = a:as
1064 state <- getState
1064 state <- getState
1065 let spacesToNbr = map (\c -> if c == ' ' then '\160' else c)
1065 let spacesToNbr = map (\c -> if c == ' ' then '\160' else c)