From 48f58750125706b78b00284a541012982af4a17d Mon Sep 17 00:00:00 2001 From: Guillaume Melquiond Date: Tue, 10 Feb 2015 14:09:25 +0100 Subject: Prevent Latex from messing with backticks. (Fix for bug #3871) --- tools/coq_tex.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'tools/coq_tex.ml') diff --git a/tools/coq_tex.ml b/tools/coq_tex.ml index 383a68df8..a2cc8384c 100644 --- a/tools/coq_tex.ml +++ b/tools/coq_tex.ml @@ -79,7 +79,7 @@ let expos = Str.regexp "^" let tex_escaped s = let dollar = "\\$" and backslash = "\\\\" and expon = "\\^" in - let delims = Str.regexp ("[_{}&%#" ^ dollar ^ backslash ^ expon ^"~ <>']") in + let delims = Str.regexp ("[_{}&%#" ^ dollar ^ backslash ^ expon ^"~ <>'`]") in let adapt_delim = function | "_" | "{" | "}" | "&" | "%" | "#" | "$" as c -> "\\"^c | "\\" -> "{\\char'134}" @@ -89,6 +89,7 @@ let tex_escaped s = | "<" -> "{<}" | ">" -> "{>}" | "'" -> "{\\textquotesingle}" + | "`" -> "\\`{}" | _ -> assert false in let adapt = function -- cgit v1.2.3