From 8de8313ca10c80cd417a05657a905d37c9331de3 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 28 Oct 2018 11:40:15 -0700
Subject: Man reader: .PP in code blocks as blank line.

---
 src/Text/Pandoc/Readers/Man.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Text/Pandoc/Readers')

diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs
index 0c587d4b7..87c39a4b9 100644
--- a/src/Text/Pandoc/Readers/Man.hs
+++ b/src/Text/Pandoc/Readers/Man.hs
@@ -389,6 +389,7 @@ parseCodeBlock = try $ do
   codeline = do
     tok <- mtoken
     case tok of
+      MMacro "PP" _ _ -> return $ Just "" -- .PP sometimes used for blank line
       MMacro mname args pos -> do
         (Just . query getText <$> handleInlineMacro mname args pos) <|>
           do report $ SkippedContent ('.':mname) pos
-- 
cgit v1.2.3