@@ -267,11 +267,12 @@ lexMacro :: PandocMonad m => ManLexer m ManToken
267lexMacro = do
267lexMacro = do
268 char '.' <|> char '\''
268 char '.' <|> char '\''
269 many spacetab
269 many spacetab
270− macroName <- many1 (letter <|> oneOf ['\\', '"', '&'])
270+ macroName <- many (letter <|> oneOf ['\\', '"', '&'])
271 args <- lexArgs
271 args <- lexArgs
272 let joinedArgs = unwords $ fst <$> args
272 let joinedArgs = unwords $ fst <$> args
274 tok = case macroName of
274 tok = case macroName of
275 x | x `elem` ["\\\"", "\\#"] -> MComment joinedArgs
276 x | x `elem` ["\\\"", "\\#"] -> MComment joinedArgs
276 "B" -> MStr (joinedArgs, singleton Bold)
277 "B" -> MStr (joinedArgs, singleton Bold)
277 "BR" -> MMaybeLink joinedArgs
278 "BR" -> MMaybeLink joinedArgs