@@ -40,7 +40,7 @@ import Text.Pandoc.Parsing
40import Data.Maybe ( fromMaybe )
40import Data.Maybe ( fromMaybe )
41import Data.Char ( chr, toUpper )
41import Data.Char ( chr, toUpper )
42import Data.List ( isPrefixOf, isSuffixOf )
42import Data.List ( isPrefixOf, isSuffixOf )
43−import Control.Monad ( when )
43+import Control.Monad ( when, liftM )
45-- | Parse LaTeX from string and return 'Pandoc' document.
45-- | Parse LaTeX from string and return 'Pandoc' document.
46readLaTeX :: ParserState -- ^ Parser state, including options for parser
46readLaTeX :: ParserState -- ^ Parser state, including options for parser
@@ -906,7 +906,7 @@ rawLaTeXInline' :: GenParser Char ParserState Inline
906rawLaTeXInline' = do
906rawLaTeXInline' = do
907 notFollowedBy' $ oneOfStrings ["\\begin", "\\end", "\\item", "\\ignore",
907 notFollowedBy' $ oneOfStrings ["\\begin", "\\end", "\\item", "\\ignore",
908 "\\section"]
908 "\\section"]
909− rawLaTeXInline
909+ rawLaTeXInline <|> liftM TeX (bracketedText '{' '}')
911-- | Parse any LaTeX command and return it in a raw TeX inline element.
911-- | Parse any LaTeX command and return it in a raw TeX inline element.
912rawLaTeXInline :: GenParser Char ParserState Inline
912rawLaTeXInline :: GenParser Char ParserState Inline