@@ -952,7 +952,7 @@ parseInlines = trimInlinesF . mconcat <$> many1 inline
953-- treat these as potentially non-text when parsing inline:
953-- treat these as potentially non-text when parsing inline:
954specialChars :: [Char]
954specialChars :: [Char]
955−specialChars = "\"$'()*+-./:<=>[\\]^_{|}~"
955+specialChars = "\"$'()*+-,./:<=>[\\]^_{|}~"
958whitespace :: OrgParser (F Inlines)
958whitespace :: OrgParser (F Inlines)
@@ -1230,10 +1230,10 @@ displayMath = return . B.displayMath <$> choice [ rawMathBetween "\\[" "\\]"
1231symbol :: OrgParser (F Inlines)
1231symbol :: OrgParser (F Inlines)
1232symbol = return . B.str . (: "") <$> (oneOf specialChars >>= updatePositions)
1232symbol = return . B.str . (: "") <$> (oneOf specialChars >>= updatePositions)
1233− where updatePositions c
1233+ where updatePositions c = do
1234− | c `elem` emphasisPreChars = c <$ updateLastPreCharPos
1234+ when (c `elem` emphasisPreChars) updateLastPreCharPos
1235− | c `elem` emphasisForbiddenBorderChars = c <$ updateLastForbiddenCharPos
1235+ when (c `elem` emphasisForbiddenBorderChars) updateLastForbiddenCharPos
1236− | otherwise = return c
1236+ return c
1238emphasisBetween :: Char
1238emphasisBetween :: Char
1239 -> OrgParser (F Inlines)
1239 -> OrgParser (F Inlines)