@@ -247,6 +247,7 @@ escapeLexer = try $ do
247 font <- choice
247 font <- choice
248 [ S.singleton <$> letterFontKind
248 [ S.singleton <$> letterFontKind
249 , char '(' >> anyChar >> anyChar >> return (S.singleton Regular)
249 , char '(' >> anyChar >> anyChar >> return (S.singleton Regular)
250+ , char 'S' >> return (S.singleton Regular)
250 , try lettersFont
251 , try lettersFont
251 , digit >> return (S.singleton Regular)
252 , digit >> return (S.singleton Regular)