Made LaTeX reader properly recognize --parse-raw in rawLaTeXInline.

Updated LaTeX reader test to use --parse-raw.


git-svn-id: https://pandoc.googlecode.com/svn/trunk@1160 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2007-12-30 02:07:55 +00:00
parent a465c4f659
commit 6c1f9c8e39
2 changed files with 5 additions and 3 deletions

View file

@ -374,7 +374,7 @@ unknownCommand = try $ do
state <- getState
if name == "item" && (stateParserContext state) == ListItemState
then fail "should not be parsed as raw"
else string ""
else return ""
if stateParseRaw state
then return $ Plain [TeX ("\\" ++ name ++ star ++ argStr)]
else return $ Plain [Str (joinWithSep " " args)]
@ -648,5 +648,7 @@ rawLaTeXInline = try $ do
if ((name == "begin") || (name == "end") || (name == "item"))
then fail "not an inline command"
else string ""
return $ TeX ("\\" ++ name ++ star ++ concat args)
if stateParseRaw state
then return $ TeX ("\\" ++ name ++ star ++ concat args)
else return $ Str (joinWithSep " " args)

View file

@ -99,7 +99,7 @@ print "Testing html reader...";
test_results("html reader", "tmp.native", "html-reader.native");
print "Testing latex reader...";
`$script -r latex -w native -s latex-reader.latex > tmp.native`;
`$script -r latex -w native -R -s latex-reader.latex > tmp.native`;
test_results("latex reader", "tmp.native", "latex-reader.native");
print "Testing native reader...";