LaTeX reader: Handle \@.

This commit is contained in:
John MacFarlane 2012-01-26 11:52:25 -08:00
parent f70dfe4d3d
commit 1ce7c38bc4

View file

@ -691,13 +691,16 @@ unescapedChar :: GenParser Char st Inline
unescapedChar = oneOf "`$^&_#{}[]|<>" >>= return . (\c -> Str [c])
specialChar :: GenParser Char st Inline
specialChar = choice [ spacer, interwordSpace,
specialChar = choice [ spacer, interwordSpace, sentenceEnd,
backslash, tilde, caret,
bar, lt, gt, doubleQuote ]
spacer :: GenParser Char st Inline
spacer = try (string "\\,") >> return (Str "")
sentenceEnd :: GenParser Char st Inline
sentenceEnd = try (string "\\@") >> return (Str "")
interwordSpace :: GenParser Char st Inline
interwordSpace = try (string "\\ ") >> return (Str "\160")