Roff tokenizer: allow \*~ etc.

This commit is contained in:
John MacFarlane 2018-10-28 21:58:31 -07:00
parent eb13f76dec
commit 39f026298d

View file

@ -613,7 +613,7 @@ checkDefined name = do
escString :: PandocMonad m => RoffLexer m [LinePart] escString :: PandocMonad m => RoffLexer m [LinePart]
escString = try $ do escString = try $ do
pos <- getPosition pos <- getPosition
(do cs <- escapeArg <|> count 1 alphaNum (do cs <- escapeArg <|> count 1 anyChar
resolveString cs pos) resolveString cs pos)
<|> mempty <$ char 'S' <|> mempty <$ char 'S'