@@ -648,15 +648,7 @@ verbatimEnv = do
648648 return (r,rest)
649649
650650rawLaTeXBlock :: GenParser Char ParserState String
651−rawLaTeXBlock =
652− (rawLaTeXEnvironment <|> (snd <$> withRaw blockCommand)) >>= applyMacros'
653−
654−rawLaTeXEnvironment :: GenParser Char ParserState String
655−rawLaTeXEnvironment = try $ do
656− controlSeq "begin"
657− name <- braced
658− let addBegin x = "\\begin{" ++ name ++ "}" ++ x
659− addBegin <$> (withRaw (env name blocks) >>= applyMacros' . snd)
651+rawLaTeXBlock = snd <$> withRaw (environment <|> blockCommand)
660652
661653rawLaTeXInline :: GenParser Char ParserState Inline
662654rawLaTeXInline = do