diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-01-18 02:47:27 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-01-18 02:47:27 +0000 |
| commit | 2c64e7947b9b7128c92fbaf23d3d6e562c3ea3d0 (patch) | |
| tree | 84524987f1a3ee3f9d0817247626847f8d24ab98 /src/Text/Pandoc/Readers/Markdown.hs | |
| parent | 5a48839168800fd3888f03ee7503a32aff964341 (diff) | |
More tweaks to smart quote parsing: a ' is not a single quote
start if followed by 's' and then a non-alphanumeric. (Yes,
this is English-centric, I'm afraid. But it does help, and I
can't think of a language in which 's' by itself is a word.)
git-svn-id: https://pandoc.googlecode.com/svn/trunk@498 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc/Readers/Markdown.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 601169f66..13c5e3d6c 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -778,6 +778,7 @@ singleQuoteStart = try $ do failIfInQuoteContext InSingleQuote char '\'' <|> char '\8216' notFollowedBy (oneOf ")!],.;:-? \t\n") + notFollowedBy (do{char 's'; satisfy (not . isAlphaNum)}) singleQuoteEnd = try $ do char '\'' <|> char '\8217' |