diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2019-07-19 10:32:59 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-07-19 10:32:59 -0700 |
| commit | 339392bf549a8a02ea17f94c02fb01cf121bc05a (patch) | |
| tree | 952220765c538c82a8442b7b9fd3124686d90163 /src/Text | |
| parent | 50885eabde6e9ba524d74a234154766f4c522627 (diff) | |
| download | pandoc-339392bf549a8a02ea17f94c02fb01cf121bc05a.tar.gz | |
Markdown: Ensure that expanded latex macros end with space if original did.
Closes #4442.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX/Parsing.hs | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX/Parsing.hs b/src/Text/Pandoc/Readers/LaTeX/Parsing.hs index a265d6ca2..eeebab3e6 100644 --- a/src/Text/Pandoc/Readers/LaTeX/Parsing.hs +++ b/src/Text/Pandoc/Readers/LaTeX/Parsing.hs @@ -226,7 +226,16 @@ rawLaTeXParser retokenize parser valParser = do Right ((val, raw), st) -> do updateState (updateMacros (sMacros st <>)) _ <- takeP (T.length (untokenize toks')) - return (val, T.unpack (untokenize raw)) + let result = untokenize raw + -- ensure we end with space if input did, see #4442 + let result' = + case reverse toks' of + (Tok _ (CtrlSeq _) t : _) + | " " `T.isSuffixOf` t + , not (" " `T.isSuffixOf` result) + -> result <> " " + _ -> result + return (val, T.unpack result') applyMacros :: (PandocMonad m, HasMacros s, HasReaderOptions s) => String -> ParserT String s m String |