@@ -172,6 +172,7 @@ escapeLexer = try $ do
172172 '(' -> twoCharGlyph
173173 '[' -> bracketedGlyph
174174 'f' -> escFont
175+ 's' -> escFontSize
175176 '"' -> mempty <$ skipMany (satisfy (/='\n')) -- line comment
176177 '#' -> mempty <$ manyTill anyChar newline
177178 '%' -> return mempty
@@ -242,6 +243,15 @@ escapeLexer = try $ do
242243 Nothing -> mzero
243244 Just c -> return c
244245
246+ -- \s-1 \s0 -- we ignore these
247+ escFontSize :: PandocMonad m => ManLexer m String
248+ escFontSize = do
249+ pos <- getPosition
250+ pm <- option "" $ count 1 (oneOf "+-")
251+ ds <- many1 digit
252+ report $ SkippedContent ("\\s" ++ pm ++ ds) pos
253+ return mempty
254+
245255 escFont :: PandocMonad m => ManLexer m String
246256 escFont = do
247257 font <- choice