From e5d0b702c7d8b11f8ed4ecf10afa320103473dd0 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 3 Sep 2021 19:52:52 -0700
Subject: RTF reader: Ignore `\pgdsc` group.

Otherwise we get style names treated as test.
---
 src/Text/Pandoc/Readers/RTF.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Text/Pandoc/Readers/RTF.hs b/src/Text/Pandoc/Readers/RTF.hs
index 0e7fbac5a..5e5799b49 100644
--- a/src/Text/Pandoc/Readers/RTF.hs
+++ b/src/Text/Pandoc/Readers/RTF.hs
@@ -411,6 +411,7 @@ processTok bs (Tok pos tok') = do
       -- eject any previous list items...sometimes TextEdit
       -- doesn't put in a \par
       emitBlocks bs
+    Grouped (Tok _ (ControlWord "pgdsc" _) : _) -> pure bs
     Grouped (Tok _ (ControlWord "colortbl" _) : _) -> pure bs
     Grouped (Tok _ (ControlWord "listtable" _) : toks) ->
       bs <$ inGroup (handleListTable toks)
-- 
cgit v1.2.3