@@ -650,9 +650,8 @@ bareIP = msatisfy isBareIP where
650650parseCodeBlock :: PandocMonad m => ManParser m Blocks
651651parseCodeBlock = try $ do
652652 optional bareIP -- some people indent their code
653− mmacro "nf"
654− toks <- many (mline <|> memptyLine)
655− mmacro "fi"
653+ toks <- (mmacro "nf" *> many (mline <|> memptyLine) <* mmacro "fi")
654+ <|> (mmacro "EX" *> many (mline <|> memptyLine) <* mmacro "EE")
656655 return $ codeBlock (intercalate "\n" . catMaybes $
657656 extractText <$> toks)
658657