From 0ab8670a0eb52b5da2bef64b2cc1917e4d5ddb54 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 12 Aug 2017 13:40:28 -0700
Subject: LaTeX reader: Fixed space after \figurename etc.

---
 src/Text/Pandoc/Readers/LaTeX.hs |  5 +----
 test/command/translations.md     | 24 ++++++++++++++++--------
 2 files changed, 17 insertions(+), 12 deletions(-)

diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index 754f379f9..284dce2bc 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -1351,10 +1351,7 @@ inlineCommands = M.fromList $
   ]
 
 doTerm :: PandocMonad m => Translations.Term -> LP m Inlines
-doTerm term = do
-  s <- (symbol '~' >> return (str "\160")) <|> return space
-  t <- translateTerm term
-  return (str t <> s)
+doTerm term = str <$> translateTerm term
 
 ifstrequal :: PandocMonad m => LP m Inlines
 ifstrequal = do
diff --git a/test/command/translations.md b/test/command/translations.md
index ef5b28c78..34531df7c 100644
--- a/test/command/translations.md
+++ b/test/command/translations.md
@@ -1,21 +1,29 @@
 ```
-% pandoc -f latex -t plain -M lang=en
-\figurename 2
+% pandoc -f latex -t native -M lang=en
+\figurename\ 2
 ^D
-Figure 2
+[Para [Str "Figure\160\&2"]]
 ```
 
 ```
-% pandoc -f latex -t plain -M lang=de-DE
-\figurename 2
+% pandoc -f latex -t native -M lang=de-DE
+\figurename\ 2
 ^D
-Abbildung 2
+[Para [Str "Abbildung\160\&2"]]
 ```
 
 ```
-% pandoc -f latex -t plain -M lang=en
+% pandoc -f latex -t native -M lang=en
 \setmainlanguage{german}
 \figurename 2
 ^D
-Abbildung 2
+[Para [Str "Abbildung2"]]
+```
+
+```
+% pandoc -f latex -t native -M lang=sr
+\figurename~2
+\figurename.
+^D
+[Para [Str "Slika\160\&2",SoftBreak,Str "Slika."]]
 ```
-- 
cgit v1.2.3