TeXMath parser: use emphasis only for letters, not numbers.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1132 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 8 insertions, 4 deletions

diff --git a/Text/Pandoc/Readers/TeXMath.hs b/Text/Pandoc/Readers/TeXMath.hs
index 918bb0670..347fde42d 100644
--- a/Text/Pandoc/Readers/TeXMath.hs
+++ b/Text/Pandoc/Readers/TeXMath.hs
@@ -45,7 +45,7 @@ readTeXMath inp = case parse teXMath "input" inp of
 teXMath = manyTill mathPart eof >>= return . concat
 
 mathPart = whitespace <|> superscript <|> subscript <|> symbol <|> 
-           argument <|> plain <|> misc
+           argument <|> digits <|> letters <|> misc
 
 whitespace = many1 space >> return []
 
@@ -64,9 +64,13 @@ argument = try $ do
               then [Str " "]
               else [Str "{"] ++ concat res ++ [Str "}"]
 
-plain = do
-  res <- many1 alphaNum 
-  return $ [Emph [Str res]]
+digits = do
+  res <- many1 digit
+  return [Str res]
+
+letters = do
+  res <- many1 letter
+  return [Emph [Str res]]
 
 misc = do
   res <- noneOf "{}\\"