@@ -1026,11 +1026,11 @@ mathInline = try $ do
1026 notFollowedBy digit
1026 notFollowedBy digit
1027 return $ intercalate " " words'
1027 return $ intercalate " " words'
1029−-- to avoid performance problems, treat 4 or more _ or * in a row as a literal
1029+-- to avoid performance problems, treat 4 or more _ or * or ~ or ^ in a row
1030−-- rather than attempting to parse for emph/strong
1030+-- as a literal rather than attempting to parse for emph/strong/strikeout/super/sub
1031fours :: GenParser Char st Inline
1031fours :: GenParser Char st Inline
1032fours = try $ do
1032fours = try $ do
1033− x <- char '*' <|> char '_'
1033+ x <- char '*' <|> char '_' <|> char '~' <|> char '^'
1034 count 2 $ satisfy (==x)
1034 count 2 $ satisfy (==x)
1035 rest <- many1 (satisfy (==x))
1035 rest <- many1 (satisfy (==x))
1036 return $ Str (x:x:x:rest)
1036 return $ Str (x:x:x:rest)