diff options
| author |  Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2014-04-28 16:04:13 +0200 |
|---|---|---|
| committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2014-04-28 16:04:13 +0200 |
| commit | 056a969e5d4cd5752bfccf7797ba46c4bcf0b70d (patch) | |
| tree | 74ce43c3247534121047af09dc774930bd1c0401 /tools/coq_tex.ml | |
| parent | ffeefb4b969aaa0b6728e701593b79250eac1c25 (diff) | |
Prevent coq_tex from generating curly quotes. (Partial fix for bug #2964)
Diffstat (limited to 'tools/coq_tex.ml')
| -rw-r--r-- | tools/coq_tex.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tools/coq_tex.ml b/tools/coq_tex.ml index c47be6e77..e2d66b4ab 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}" @@ -88,6 +88,7 @@ let tex_escaped s = | " " -> "~" | "<" -> "{<}" | ">" -> "{>}" + | "'" -> "{\\textquotesingle}" | _ -> assert false in let adapt = function |