More smart quote adjustments:

+ remove support for all-caps contractions (too
  much potential for conflict with things like
  'M. Mitterand')
+ add support for 'm as a contraction


git-svn-id: https://pandoc.googlecode.com/svn/trunk@560 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 2 insertions, 4 deletions

diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 691a1c7f2..067b68e6a 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -32,7 +32,7 @@ module Text.Pandoc.Readers.Markdown (
                                     ) where
 
 import Data.List ( findIndex, sortBy, transpose, isSuffixOf, intersect )
-import Data.Char ( isAlphaNum, toUpper )
+import Data.Char ( isAlphaNum )
 import Text.ParserCombinators.Pandoc
 import Text.Pandoc.Definition
 import Text.Pandoc.Readers.LaTeX ( rawLaTeXInline, rawLaTeXEnvironment )
@@ -778,9 +778,7 @@ singleQuoteStart = try $ do
                      char '\''  
                      notFollowedBy (oneOf ")!],.;:-? \t\n")
                      notFollowedBy (try (do  -- possessive or contraction
-                                           let endings = ["s","t","ve","ll","re"]
-                                           oneOfStrings (endings ++ 
-                                             map (map toUpper) endings) 
+                                           oneOfStrings ["s","t","m","ve","ll","re"]
                                            satisfy (not . isAlphaNum)))
                      return '\''