From d9960244d8413592fc29c69780c41944c8c341be Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 22 Jul 2019 15:28:15 -0700
Subject: LaTeX reader: support tex `\tt` command.

Closes #5654.
---
 src/Text/Pandoc/Readers/LaTeX.hs | 1 +
 test/command/4669.md             | 2 +-
 test/command/5654.md             | 6 ++++++
 3 files changed, 8 insertions(+), 1 deletion(-)
 create mode 100644 test/command/5654.md

diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index fe677e470..c08cb929e 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/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)
diff --git a/test/command/4669.md b/test/command/4669.md
index b9db45b17..0bc989516 100644
--- a/test/command/4669.md
+++ b/test/command/4669.md
@@ -6,7 +6,7 @@
   while (n > 0) {
 \end{verbatim}
 ^D
-[Para [Span ("",[],[]) [Str "<-"]]
+[Para [Span ("",[],[]) [Code ("",[],[]) "<-"]]]
 ,CodeBlock ("",[],[]) "  while (n > 0) {"]
 ```
 
diff --git a/test/command/5654.md b/test/command/5654.md
new file mode 100644
index 000000000..3905dca20
--- /dev/null
+++ b/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.
+```
-- 
cgit v1.2.3