RTF reader: fix bug where list items were...

...incorporated into a following table.
Closes #11364.
This commit is contained in:
John MacFarlane
2025-12-29 10:11:41 -07:00
parent 854b7332d9
commit e5ee5ed04f
2 changed files with 78 additions and 2 deletions
+3 -2
View File
@@ -558,8 +558,9 @@ processTok bs (Tok pos tok') = do
TableRow (curCell : cs) : rs
[] -> [TableRow [curCell]] -- shouldn't happen
, sCurrentCell = mempty }
ControlWord "intbl" _ ->
emitBlocks bs <* modifyGroup (\g -> g{ gInTable = True })
ControlWord "intbl" _ -> do
ls <- closeLists 0 -- see #11364
((ls <>) <$> emitBlocks bs) <* modifyGroup (\g -> g{ gInTable = True })
ControlWord "plain" _ -> bs <$ modifyGroup (const def)
ControlWord "lquote" _ -> bs <$ addText "\x2018"
ControlWord "rquote" _ -> bs <$ addText "\x2019"