@@ -879,18 +879,18 @@ bulletListStart = bulletListStart' Nothing
879879
880880bulletListStart' :: Maybe Int -> OrgParser Int
881881-- returns length of bulletList prefix, inclusive of marker
882−bulletListStart' Nothing = do ind <- many spaceChar
882+bulletListStart' Nothing = do ind <- length <$> many spaceChar
883+ when (ind == 0) $ notFollowedBy (char '*')
883884 oneOf bullets
884885 many1 spaceChar
885− return $ length ind + 1
886+ return (ind + 1)
886887 -- Unindented lists are legal, but they can't use '*' bullets
887888 -- We return n to maintain compatibility with the generic listItem
888889bulletListStart' (Just n) = do count (n-1) spaceChar
889− oneOf validBullets
890+ when (n == 1) $ notFollowedBy (char '*')
891+ oneOf bullets
890892 many1 spaceChar
891893 return n
892− where validBullets = if n == 1 then noAsterisks else bullets
893− noAsterisks = filter (/= '*') bullets
894894
895895bullets :: String
896896bullets = "*+-"