@@ -33,7 +33,7 @@ module Text.Pandoc.Readers.Markdown (
34import Data.List ( transpose, isPrefixOf, isSuffixOf, sortBy, findIndex, intercalate )
34import Data.List ( transpose, isPrefixOf, isSuffixOf, sortBy, findIndex, intercalate )
35import Data.Ord ( comparing )
35import Data.Ord ( comparing )
36−import Data.Char ( isAlphaNum, isUpper )
36+import Data.Char ( isAlphaNum )
37import Data.Maybe
37import Data.Maybe
38import Text.Pandoc.Definition
38import Text.Pandoc.Definition
39import Text.Pandoc.Shared
39import Text.Pandoc.Shared
@@ -479,7 +479,7 @@ anyOrderedListStart = try $ do
479 -- if it could be an abbreviated first name, insist on more than one space
479 -- if it could be an abbreviated first name, insist on more than one space
480 if delim == Period && (style == UpperAlpha || (style == UpperRoman &&
480 if delim == Period && (style == UpperAlpha || (style == UpperRoman &&
481 num `elem` [1, 5, 10, 50, 100, 500, 1000]))
481 num `elem` [1, 5, 10, 50, 100, 500, 1000]))
482− then char '\t' <|> (char ' ' >>~ notFollowedBy (satisfy isUpper))
482+ then char '\t' <|> (try $ char ' ' >> spaceChar)
483 else spaceChar
483 else spaceChar
484 skipSpaces
484 skipSpaces
485 return (num, style, delim)
485 return (num, style, delim)