1 files changed, 4 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index f8071a2b7..14dcd5d66 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -776,13 +776,14 @@ failIfInQuoteContext context = do
     then fail "already inside quotes"
     else return ()
 
-singleQuoteStart = do 
+singleQuoteStart = try $ do 
   failIfInQuoteContext InSingleQuote
   char '\'' <|> char '\8216'
+  notFollowedBy (oneOf ")!],.;:-?")
 
-singleQuoteEnd = try (do
+singleQuoteEnd = try $ do
   char '\'' <|> char '\8217'
-  notFollowedBy alphaNum)
+  notFollowedBy alphaNum
 
 doubleQuoteStart = do
   failIfInQuoteContext InDoubleQuote