diff options
| author | John MacFarlane <[email protected]> | 2025-12-29 10:10:50 -0700 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2025-12-29 10:11:41 -0700 |
| commit | e5ee5ed04ff75c577d25eaeb0f70ee3936dfe84e (patch) | |
| tree | 720dcbccd161969f6ab9b4b7b0357b2b5db5bf4f /src | |
| parent | 854b7332d9f3044be15344fd57637f15b482f7e9 (diff) | |
RTF reader: fix bug where list items were...
...incorporated into a following table.
Closes #11364.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/RTF.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/RTF.hs b/src/Text/Pandoc/Readers/RTF.hs index 956acf5cd..fde444854 100644 --- a/src/Text/Pandoc/Readers/RTF.hs +++ b/src/Text/Pandoc/Readers/RTF.hs @@ -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" |