From e6cc2aa3cf30cc5179b33974a894f5333167242b Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Wed, 24 Jan 2007 04:49:36 +0000 Subject: Fixed bug in smart quoting: recognize ' in contractions like "don't" as not beginning single quoted contexts. git-svn-id: https://pandoc.googlecode.com/svn/trunk@505 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/Pandoc/Readers/Markdown.hs | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index f32a29274..6e327a2ef 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -776,9 +776,13 @@ failIfInQuoteContext context = do singleQuoteStart = try $ do failIfInQuoteContext InSingleQuote - char '\'' <|> char '\8216' - notFollowedBy (oneOf ")!],.;:-? \t\n") - notFollowedBy (try (do{oneOf "sS"; satisfy (not . isAlphaNum)})) + char '\8216' <|> do + char '\'' + notFollowedBy (oneOf ")!],.;:-? \t\n") + notFollowedBy (try (do -- possessive or contraction + oneOf "sStT" + satisfy (not . isAlphaNum))) + return '\'' singleQuoteEnd = try $ do char '\'' <|> char '\8217' -- cgit v1.2.3