diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 6aa0f1205..4f24dd3d0 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -155,10 +155,15 @@ rawLaTeXInline :: (PandocMonad m, HasMacros s, HasReaderOptions s) => ParserT String s m String rawLaTeXInline = do lookAhead (try (char '\\' >> letter)) - snd <$> ( rawLaTeXParser True + raw <- snd <$> + ( rawLaTeXParser True (mempty <$ (controlSeq "input" >> skipMany opt >> braced)) inlines - <|> rawLaTeXParser True (inlineEnvironment <|> inlineCommand') inlines) + <|> rawLaTeXParser True (inlineEnvironment <|> inlineCommand') + inlines + ) + finalbraces <- mconcat <$> many (try (string "{}")) -- see #5439 + return $ raw <> finalbraces inlineCommand :: PandocMonad m => ParserT String ParserState m Inlines inlineCommand = do diff --git a/test/command/5439.md b/test/command/5439.md new file mode 100644 index 000000000..b021161fd --- /dev/null +++ b/test/command/5439.md @@ -0,0 +1,6 @@ +``` +% pandoc -t latex +namespace\fshyp{}container +^D +namespace\fshyp{}container +```