@@ -67,7 +67,7 @@ setextHChars = "=-"
6767
6868-- treat these as potentially non-text when parsing inline:
6969specialChars :: [Char]
70−specialChars = "\\[]*_~`<>$!^-.&'\"\8216\8217\8220\8221;"
70+specialChars = "\\[]*_~`<>$!^-.&'\";"
7171
7272--
7373-- auxiliary functions
@@ -1070,30 +1070,28 @@ failIfInQuoteContext context = do
10701070singleQuoteStart :: GenParser Char ParserState Char
10711071singleQuoteStart = do
10721072 failIfInQuoteContext InSingleQuote
1073− char '\8216' <|>
1074− (try $ do char '\''
1075− notFollowedBy (oneOf ")!],.;:-? \t\n")
1076− notFollowedBy (try (oneOfStrings ["s","t","m","ve","ll","re"] >>
1077− satisfy (not . isAlphaNum)))
1078− -- possess/contraction
1079− return '\'')
1073+ try $ do char '\''
1074+ notFollowedBy (oneOf ")!],.;:-? \t\n")
1075+ notFollowedBy (try (oneOfStrings ["s","t","m","ve","ll","re"] >>
1076+ satisfy (not . isAlphaNum)))
1077+ -- possess/contraction
1078+ return '\''
10801079
10811080singleQuoteEnd :: GenParser Char st Char
10821081singleQuoteEnd = try $ do
1083− char '\8217' <|> char '\''
1082+ char '\''
10841083 notFollowedBy alphaNum
10851084 return '\''
10861085
10871086doubleQuoteStart :: GenParser Char ParserState Char
10881087doubleQuoteStart = do
10891088 failIfInQuoteContext InDoubleQuote
1090− char '\8220' <|>
1091− (try $ do char '"'
1092− notFollowedBy (oneOf " \t\n")
1093− return '"')
1089+ try $ do char '"'
1090+ notFollowedBy (oneOf " \t\n")
1091+ return '"'
10941092
10951093doubleQuoteEnd :: GenParser Char st Char
1096−doubleQuoteEnd = char '\8221' <|> char '"'
1094+doubleQuoteEnd = char '"'
10971095
10981096ellipses :: GenParser Char st Inline
10991097ellipses = oneOfStrings ["...", " . . . ", ". . .", " . . ."] >> return Ellipses