diff options
| -rw-r--r-- | Text/Pandoc/Readers/LaTeX.hs | 6 | ||||
| -rw-r--r-- | tests/runtests.pl | 2 |
2 files changed, 5 insertions, 3 deletions
diff --git a/Text/Pandoc/Readers/LaTeX.hs b/Text/Pandoc/Readers/LaTeX.hs index ac338c106..dcfa62b92 100644 --- a/Text/Pandoc/Readers/LaTeX.hs +++ b/Text/Pandoc/Readers/LaTeX.hs @@ -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) diff --git a/tests/runtests.pl b/tests/runtests.pl index 6fd989930..bea5bf530 100644 --- a/tests/runtests.pl +++ b/tests/runtests.pl @@ -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..."; |