LaTeX reader: support tex \tt command.

Closes #5654.

src/Text/Pandoc/Readers/LaTeX.hs

@@ -924,6 +924,7 @@ inlineCommands = M.union inlineLanguageCommands $ M.fromList
   , ("it", extractSpaces emph <$> inlines)
   , ("sl", extractSpaces emph <$> inlines)
   , ("bf", extractSpaces strong <$> inlines)
+  , ("tt", code . stringify . toList <$> inlines)
   , ("rm", inlines)
   , ("itshape", extractSpaces emph <$> inlines)
   , ("slshape", extractSpaces emph <$> inlines)

test/command/4669.md

@@ -6,7 +6,7 @@
   while (n > 0) {
 \end{verbatim}
 ^D
-[Para [Span ("",[],[]) [Str "<-"]]
+[Para [Span ("",[],[]) [Code ("",[],[]) "<-"]]]
 ,CodeBlock ("",[],[]) "  while (n > 0) {"]
 ```
 

test/command/5654.md

@@ -0,0 +1,6 @@
+```
+% pandoc -f latex -t markdown
+This is {\tt monospaced too} done.
+^D
+This is `monospaced too` done.
+```