Revert "Improve parsing of raw LaTeX blocks..."

This reverts commit 22863a3e124215e6fd24efe55a5a99fb2d605e5b.

1 files changed, 2 insertions, 7 deletions

diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index 32195d859..11419b15f 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -144,17 +144,12 @@ rawLaTeXBlock = do
   toks <- getInputTokens
   snd <$> (
           rawLaTeXParser toks
-             (skipMany1 (try
-              (skipMany (whitespace <|> newlineTok)
-               *> (macroDef (const ())
-                  <|> void (controlSeq "makeatletter" <|>
-                            controlSeq "mateatother")))
-              <|>
+             (macroDef (const mempty) <|>
               do choice (map controlSeq
                    ["include", "input", "subfile", "usepackage"])
                  skipMany opt
                  braced
-                 return mempty)) blocks
+                 return mempty) blocks
       <|> rawLaTeXParser toks
            (void (environment <|> blockCommand))
            (mconcat <$> many (block <|> beginOrEndCommand)))