@@ -453,7 +453,7 @@ inline = choice [ str
453 , accentedChar
453 , accentedChar
454 , nonbreakingSpace
454 , nonbreakingSpace
455 , specialChar
455 , specialChar
456− , rawLaTeXInline
456+ , rawLaTeXInline'
457 , escapedChar
457 , escapedChar
458 , unescapedChar
458 , unescapedChar
459 ] <?> "inline"
459 ] <?> "inline"
@@ -771,11 +771,16 @@ footnote = try $ do
771 setInput rest
771 setInput rest
772 return $ Note blocks
772 return $ Note blocks
774+-- | Parse any LaTeX inline command and return it in a raw TeX inline element.
775+rawLaTeXInline' :: GenParser Char ParserState Inline
777+ notFollowedBy' $ oneOfStrings ["\\begin", "\\end", "\\item", "\\ignore",
774-- | Parse any LaTeX command and return it in a raw TeX inline element.
781-- | Parse any LaTeX command and return it in a raw TeX inline element.
775rawLaTeXInline :: GenParser Char ParserState Inline
782rawLaTeXInline :: GenParser Char ParserState Inline
776rawLaTeXInline = try $ do
783rawLaTeXInline = try $ do
777− notFollowedBy' $ oneOfStrings ["\\begin", "\\end", "\\item", "\\ignore",
779 state <- getState
784 state <- getState
780 if stateParseRaw state
785 if stateParseRaw state