From cbeef9f5caa0b96e4dfaa072d61bc8473865e003 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 26 Oct 2018 21:37:42 -0700
Subject: Roff tokenizer: skip .sp in tables.

---
 src/Text/Pandoc/Readers/Roff.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Text/Pandoc/Readers/Roff.hs b/src/Text/Pandoc/Readers/Roff.hs
index 9d71c98b3..6062328f0 100644
--- a/src/Text/Pandoc/Readers/Roff.hs
+++ b/src/Text/Pandoc/Readers/Roff.hs
@@ -364,7 +364,8 @@ lexTableRows :: PandocMonad m => RoffLexer m [TableRow]
 lexTableRows = do
   aligns <- tableFormatSpec
   spaces
-  skipMany lexComment
+  skipMany $ lexComment
+          <|> try (mempty <$ (string ".sp" >> skipMany spaceChar >> newline))
   spaces
   rows <- many (notFollowedBy (try (string ".TE") <|> try (string ".T&")) >>
                   tableRow)
-- 
cgit v1.2.3