@@ -71,7 +71,7 @@ commandArgs = many optOrArg
7171-- | Parses LaTeX command, returns (name, star, list of options or arguments).
7272command = do
7373 char '\\'
74− name <- many1 alphaNum
74+ name <- many1 letter
7575 star <- option "" (string "*") -- some commands have starred versions
7676 args <- commandArgs
7777 return (name, star, args)
@@ -93,7 +93,7 @@ environment name = try $ begin name >> spaces >> manyTill block (end name)
9393
9494anyEnvironment = try $ do
9595 string "\\begin{"
96− name <- many alphaNum
96+ name <- many letter
9797 star <- option "" (string "*") -- some environments have starred variants
9898 char '}'
9999 optional commandArgs
@@ -341,7 +341,7 @@ specialEnvironment = do -- these are always parsed as raw
341341rawLaTeXEnvironment :: GenParser Char st Block
342342rawLaTeXEnvironment = try $ do
343343 string "\\begin{"
344− name <- many1 alphaNum
344+ name <- many1 letter
345345 star <- option "" (string "*") -- for starred variants
346346 let name' = name ++ star
347347 char '}'
@@ -421,7 +421,7 @@ accentedChar = normalAccentedChar <|> specialAccentedChar
421421normalAccentedChar = try $ do
422422 char '\\'
423423 accent <- oneOf "'`^\"~"
424− character <- (try $ char '{' >> alphaNum >>~ char '}') <|> alphaNum
424+ character <- (try $ char '{' >> letter >>~ char '}') <|> letter
425425 let table = fromMaybe [] $ lookup character accentTable
426426 let result = case lookup accent table of
427427 Just num -> chr num