@@ -880,7 +880,7 @@ defListMarker = do
880880 tabStop <- getOption readerTabStop
881881 let remaining = tabStop - (length sps + 1)
882882 if remaining > 0
883− then count remaining (char ' ') <|> string "\t"
883+ then try (count remaining (char ' ')) <|> string "\t" <|> many1 spaceChar
884884 else mzero
885885 return ()
886886
@@ -916,7 +916,9 @@ defRawBlock compact = try $ do
916916
917917definitionList :: MarkdownParser Blocks
918918definitionList = try $ do
919− lookAhead (anyLine >> optional blankline >> defListMarker)
919+ lookAhead (anyLine >> optional (blankline >> notFollowedBy table) >>
920+ -- don't capture table caption as def list!
921+ defListMarker)
920922 compactDefinitionList <|> normalDefinitionList
921923
922924compactDefinitionList :: MarkdownParser Blocks