@@ -952,7 +952,7 @@ parseInlines = trimInlinesF . mconcat <$> many1 inline
952952
953953-- treat these as potentially non-text when parsing inline:
954954specialChars :: [Char]
955−specialChars = "\"$'()*+-./:<=>[\\]^_{|}~"
955+specialChars = "\"$'()*+-,./:<=>[\\]^_{|}~"
956956
957957
958958whitespace :: OrgParser (F Inlines)
@@ -1230,10 +1230,10 @@ displayMath = return . B.displayMath <$> choice [ rawMathBetween "\\[" "\\]"
12301230 ]
12311231symbol :: OrgParser (F Inlines)
12321232symbol = return . B.str . (: "") <$> (oneOf specialChars >>= updatePositions)
1233− where updatePositions c
1234− | c `elem` emphasisPreChars = c <$ updateLastPreCharPos
1235− | c `elem` emphasisForbiddenBorderChars = c <$ updateLastForbiddenCharPos
1236− | otherwise = return c
1233+ where updatePositions c = do
1234+ when (c `elem` emphasisPreChars) updateLastPreCharPos
1235+ when (c `elem` emphasisForbiddenBorderChars) updateLastForbiddenCharPos
1236+ return c
12371237
12381238emphasisBetween :: Char
12391239 -> OrgParser (F Inlines)