git.iko.soy/typeable/pandoc
on master help sign in
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

commit6c1f9c8e39d74217319957395de98b4d6a4bc840 authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> dateSun 30 Dec 2007, 02:07 (19 years ago) parenta465c4f
2 files changed+5−3
compare with master
unifiedsplit
Text/Pandoc/Readers/LaTeX.hs+4−2 tests/runtests.pl+1−1
Text/Pandoc/Readers/LaTeX.hs+4−2
@@ -374,7 +374,7 @@ unknownCommand = try $ do
374374 state <- getState
375375 if name == "item" && (stateParserContext state) == ListItemState
376376 then fail "should not be parsed as raw"
377− else string ""
377+ else return ""
378378 if stateParseRaw state
379379 then return $ Plain [TeX ("\\" ++ name ++ star ++ argStr)]
380380 else return $ Plain [Str (joinWithSep " " args)]
@@ -648,5 +648,7 @@ rawLaTeXInline = try $ do
648648 if ((name == "begin") || (name == "end") || (name == "item"))
649649 then fail "not an inline command"
650650 else string ""
651− return $ TeX ("\\" ++ name ++ star ++ concat args)
651+ if stateParseRaw state
652+ then return $ TeX ("\\" ++ name ++ star ++ concat args)
653+ else return $ Str (joinWithSep " " args)
652654
tests/runtests.pl+1−1
@@ -99,7 +99,7 @@ print "Testing html reader...";
9999test_results("html reader", "tmp.native", "html-reader.native");
100100
101101print "Testing latex reader...";
102−`$script -r latex -w native -s latex-reader.latex > tmp.native`;
102+`$script -r latex -w native -R -s latex-reader.latex > tmp.native`;
103103test_results("latex reader", "tmp.native", "latex-reader.native");
104104
105105print "Testing native reader...";