LaTeX reader: Make withRaw work inside parseFromToks.

This is needed for raw environments to work inside table cells.

Closes #9517.

Author: jgm

src/Text/Pandoc/Readers/LaTeX/Parsing.hs

@@ -490,7 +490,11 @@ parseFromToks parser toks = do
   case toks of
      Tok pos _ _ : _ -> setPosition pos
      _ -> return ()
-  result <- disablingWithRaw parser
+  -- we ignore existing raw tokens maps (see #9517)
+  oldRawTokens <- sRawTokens <$> getState
+  updateState $ \st -> st{ sRawTokens = mempty }
+  result <- parser
+  updateState $ \st -> st{ sRawTokens = oldRawTokens }
   setInput oldInput
   setPosition oldpos
   return result

test/command/9517.md

@@ -0,0 +1,34 @@
+```
+% pandoc -f latex+raw_tex -t native
+\begin{tabular}{l}
+\begin{theorem}
+Cats
+\end{theorem}
+\end{tabular}
+^D
+[ Table
+    ( "" , [] , [] )
+    (Caption Nothing [])
+    [ ( AlignLeft , ColWidthDefault ) ]
+    (TableHead ( "" , [] , [] ) [])
+    [ TableBody
+        ( "" , [] , [] )
+        (RowHeadColumns 0)
+        []
+        [ Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ RawBlock
+                    (Format "latex")
+                    "\\begin{theorem}\nCats\n\\end{theorem}"
+                ]
+            ]
+        ]
+    ]
+    (TableFoot ( "" , [] , [] ) [])
+]
+```