@@ -1855,12 +1855,18 @@ orderedList' = try $ do
1856block :: PandocMonad m => LP m Blocks
1856block :: PandocMonad m => LP m Blocks
1857block = do
1857block = do
1858+ Tok _ toktype _ <- lookAhead anyTok
1859+ res <- (case toktype of
1858− res <- (mempty <$ spaces1)
1860+ Newline -> mempty <$ spaces1
1861+ Spaces -> mempty <$ spaces1
1862+ Comment -> mempty <$ spaces1
1859− <|> environment
1864+ CtrlSeq "begin" -> environment
1860− <|> macroDef (rawBlock "latex")
1865+ CtrlSeq _ -> macroDef (rawBlock "latex")
1861− <|> blockCommand
1866+ <|> blockCommand
1862− <|> paragraph
1868+ <|> paragraph
1863− <|> grouped block
1869+ <|> grouped block
1864 trace (T.take 60 $ tshow $ B.toList res)
1870 trace (T.take 60 $ tshow $ B.toList res)
1865 return res
1871 return res