@@ -156,7 +156,6 @@ block = choice [ hrule
156156 , comment
157157 , bibliographic
158158 , para
159− , specialEnvironment
160159 , itemBlock
161160 , unknownEnvironment
162161 , ignore
@@ -347,12 +346,6 @@ itemBlock = try $ do
347346-- raw LaTeX
348347--
349348
350−specialEnvironment :: GenParser Char st Block
351−specialEnvironment = do -- these are always parsed as raw
352− lookAhead (choice (map (\name -> begin name) ["tabular", "figure",
353− "tabbing", "eqnarry", "picture", "table", "verse", "theorem"]))
354− rawLaTeXEnvironment
355−
356349-- | Parse any LaTeX environment and return a Para block containing
357350-- the whole literal environment as raw TeX.
358351rawLaTeXEnvironment :: GenParser Char st Block