@@ -267,11 +267,12 @@ lexMacro :: PandocMonad m => ManLexer m ManToken
267267lexMacro = do
268268 char '.' <|> char '\''
269269 many spacetab
270− macroName <- many1 (letter <|> oneOf ['\\', '"', '&'])
270+ macroName <- many (letter <|> oneOf ['\\', '"', '&'])
271271 args <- lexArgs
272272 let joinedArgs = unwords $ fst <$> args
273273
274274 tok = case macroName of
275+ "" -> MComment ""
275276 x | x `elem` ["\\\"", "\\#"] -> MComment joinedArgs
276277 "B" -> MStr (joinedArgs, singleton Bold)
277278 "BR" -> MMaybeLink joinedArgs