diff options
| author |  Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2015-07-30 08:30:00 +0200 |
|---|---|---|
| committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2015-07-30 08:30:00 +0200 |
| commit | a9f3607ae72517156301570a4ffa05908609b7e0 (patch) | |
| tree | 9d9d67a529332e5875fb2227d56b77310c2db5a7 /tools/coq_tex.ml | |
| parent | 070139d3a82ea23e4d050dd5ccebe3f17047cc62 (diff) | |
Fix width of underscore in coq_tex output.
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 8218f84f1..dbdc2e9db 100644 --- a/tools/coq_tex.ml +++ b/tools/coq_tex.ml @@ -66,7 +66,8 @@ let extract texfile inputv = let tex_escaped s = let delims = Str.regexp "[_{}&%#$\\^~ <>'`]" in let adapt_delim = function - | "_" | "{" | "}" | "&" | "%" | "#" | "$" as c -> "\\"^c + | "{" | "}" | "&" | "%" | "#" | "$" as c -> "\\"^c + | "_" -> "{\\char`\\_}" | "\\" -> "{\\char'134}" | "^" -> "{\\char'136}" | "~" -> "{\\char'176}" |