Better handling of raw latex environments in markdown.

Now

    \begin{equation}
    a_1
    \end{equation}

turns into a raw latex block as expected.

1 files changed, 1 insertions, 9 deletions

diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index ba5676619..b5cb5ef9d 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -648,15 +648,7 @@ verbatimEnv = do
   return (r,rest)
 
 rawLaTeXBlock :: GenParser Char ParserState String
-rawLaTeXBlock =
-  (rawLaTeXEnvironment <|> (snd <$> withRaw blockCommand)) >>= applyMacros'
-
-rawLaTeXEnvironment :: GenParser Char ParserState String
-rawLaTeXEnvironment = try $ do
-  controlSeq "begin"
-  name <- braced
-  let addBegin x = "\\begin{" ++ name ++ "}" ++ x
-  addBegin <$> (withRaw (env name blocks) >>= applyMacros' . snd)
+rawLaTeXBlock = snd <$> withRaw (environment <|> blockCommand)
 
 rawLaTeXInline :: GenParser Char ParserState Inline
 rawLaTeXInline = do