aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorTim Parenti <timparenti@users.noreply.github.com>2018-04-26 15:41:15 -0400
committerJohn MacFarlane <jgm@berkeley.edu>2018-04-26 12:41:15 -0700
commit9472811694e931fa9b5e5db1e82d755efdf3a3a3 (patch)
treecc1fb79a62828980f4d8c938cd0107471eb20086 /src/Text/Pandoc
parent1494b20bb433d266fde818dc6f3f807908e469ce (diff)
downloadpandoc-9472811694e931fa9b5e5db1e82d755efdf3a3a3.tar.gz
LaTeX writer: Update \lstinline delimiters. (#4369)
Don't delimit \lstinline with characters that are normally escaped. Follow-up to #4111, #4271.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/LaTeX.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
index d9868b7cd..2904bec06 100644
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -1036,7 +1036,7 @@ inlineToLaTeX (Code (_,classes,_) str) = do
Nothing -> ""
inNote <- gets stInNote
when inNote $ modify $ \s -> s{ stVerbInNote = True }
- let chr = case "!\"&'()*,-./:;?@_" \\ str of
+ let chr = case "!\"'()*,-./:;?@" \\ str of
(c:_) -> c
[] -> '!'
let str' = escapeStringUsing (backslashEscapes "\\{}%~_&") str