diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-12-15 09:45:29 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-12-15 09:45:29 -0800 |
| commit | 044d58bb24cf41493222a14612e2de4f8d05ea6a (patch) | |
| tree | 7eccdd8ace65b6de7dd293cfb69604277d790da0 /src/Text/Pandoc | |
| parent | 61133b52687ac96dd4171d189d9770cae2ae7a6c (diff) | |
| download | pandoc-044d58bb24cf41493222a14612e2de4f8d05ea6a.tar.gz | |
Fixed regression in LateX tokenization.
This mainly affects the Markdown reader when parsing
raw LaTeX with escaped spaces. Closes #4159.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 90d0fe5d1..fab97347b 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -320,7 +320,7 @@ totoks pos t = : totoks (incSourceColumn pos (1 + T.length cs)) rest' | c == '\\' -> case T.uncons rest of - Nothing -> [Tok pos Symbol (T.singleton c)] + Nothing -> [Tok pos (CtrlSeq " ") "\\"] Just (d, rest') | isLetterOrAt d -> -- \makeatletter is common in macro defs; @@ -338,7 +338,7 @@ totoks pos t = Just ('\n', r2) -> (T.pack "\n", T.span isSpaceOrTab r2) - _ -> (mempty, (w1, r1)) + _ -> (mempty, (mempty, r1)) in case T.uncons r3 of Just ('\n', _) -> Tok pos (CtrlSeq " ") ("\\" <> w1) |