From 81d2372f572485a5fadde78c75e0a08d55a80c7f Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 23 Oct 2018 09:37:09 -0700
Subject: Man reader: support .nop.

---
 src/Text/Pandoc/Readers/Man.hs | 29 ++++++++++++++++-------------
 1 file changed, 16 insertions(+), 13 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs
index 701ab55d5..cb19bc7c8 100644
--- a/src/Text/Pandoc/Readers/Man.hs
+++ b/src/Text/Pandoc/Readers/Man.hs
@@ -294,19 +294,22 @@ lexMacro = do
   char '.' <|> char '\''
   many spacetab
   macroName <- many (satisfy (not . isSpace))
-  args <- lexArgs
-
-  case macroName of
-    ""     -> return mempty
-    "\\\"" -> return mempty
-    "\\#"  -> return mempty
-    "de"   -> lexMacroDef args
-    "de1"  -> lexMacroDef args
-    "ds"   -> lexStringDef args
-    "ds1"  -> lexStringDef args
-    "sp"   -> return $ singleTok MEmptyLine
-    "so"   -> lexIncludeFile args
-    _      -> resolveMacro macroName args pos
+  if macroName == "nop"
+     then return mempty
+     else do
+       args <- lexArgs
+
+       case macroName of
+         ""     -> return mempty
+         "\\\"" -> return mempty
+         "\\#"  -> return mempty
+         "de"   -> lexMacroDef args
+         "de1"  -> lexMacroDef args
+         "ds"   -> lexStringDef args
+         "ds1"  -> lexStringDef args
+         "sp"   -> return $ singleTok MEmptyLine
+         "so"   -> lexIncludeFile args
+         _      -> resolveMacro macroName args pos
 
 
 lexIncludeFile :: PandocMonad m => [Arg] -> ManLexer m ManTokens
-- 
cgit v1.2.3