From 1a4a0d0283ef915d0e10fcb24027ff8bc93154e5 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 13 Dec 2010 19:34:29 -0800
Subject: Markdown reader: Further fix to abbrevs.

---
 src/Text/Pandoc/Readers/Markdown.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 65b03ab1f..5994f2ef8 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -1068,7 +1068,7 @@ str = do
                []        -> return $ Str result
                xs        -> choice (map (\x ->
                                try (string x >> oneOf " \n" >>
-                                    lookAhead letter >>
+                                    lookAhead alphaNum >>
                                     return (Str $ result ++ spacesToNbr x ++ "\160"))) xs)
                            <|> (return $ Str result)
      else return $ Str result
-- 
cgit v1.2.3