@@ -927,7 +927,7 @@ parseInlines = trimInlinesF . mconcat <$> many1 inline
928-- treat these as potentially non-text when parsing inline:
928-- treat these as potentially non-text when parsing inline:
929specialChars :: [Char]
929specialChars :: [Char]
930−specialChars = "\"$'()*+-./:<=>[\\]^_{|}~"
930+specialChars = "\"$'()*+-,./:<=>[\\]^_{|}~"
933whitespace :: OrgParser (F Inlines)
933whitespace :: OrgParser (F Inlines)
@@ -1205,10 +1205,10 @@ displayMath = return . B.displayMath <$> choice [ rawMathBetween "\\[" "\\]"
1206symbol :: OrgParser (F Inlines)
1206symbol :: OrgParser (F Inlines)
1207symbol = return . B.str . (: "") <$> (oneOf specialChars >>= updatePositions)
1207symbol = return . B.str . (: "") <$> (oneOf specialChars >>= updatePositions)
1208− where updatePositions c
1208+ where updatePositions c = do
1209− | c `elem` emphasisPreChars = c <$ updateLastPreCharPos
1209+ when (c `elem` emphasisPreChars) updateLastPreCharPos
1210− | c `elem` emphasisForbiddenBorderChars = c <$ updateLastForbiddenCharPos
1210+ when (c `elem` emphasisForbiddenBorderChars) updateLastForbiddenCharPos
1211− | otherwise = return c
1211+ return c
1213emphasisBetween :: Char
1213emphasisBetween :: Char
1214 -> OrgParser (F Inlines)
1214 -> OrgParser (F Inlines)