aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGuillaume Melquiond2014-04-28 16:04:13 +0200
committerGuillaume Melquiond2014-04-28 16:04:13 +0200
commit056a969e5d4cd5752bfccf7797ba46c4bcf0b70d (patch)
tree74ce43c3247534121047af09dc774930bd1c0401
parentffeefb4b969aaa0b6728e701593b79250eac1c25 (diff)
Prevent coq_tex from generating curly quotes. (Partial fix for bug #2964)
-rw-r--r--doc/faq/FAQ.tex1
-rw-r--r--doc/refman/Reference-Manual.tex1
-rwxr-xr-xdoc/tutorial/Tutorial.tex1
-rw-r--r--tools/coq_tex.ml3
4 files changed, 5 insertions, 1 deletions
diff --git a/doc/faq/FAQ.tex b/doc/faq/FAQ.tex
index a5536911d7..5806e9d72d 100644
--- a/doc/faq/FAQ.tex
+++ b/doc/faq/FAQ.tex
@@ -7,6 +7,7 @@
\pagestyle{plain}
% yay les symboles
+\usepackage{textcomp}
\usepackage{stmaryrd}
\usepackage{amssymb}
\usepackage{url}
diff --git a/doc/refman/Reference-Manual.tex b/doc/refman/Reference-Manual.tex
index 0c4296ed57..6a4554fc6f 100644
--- a/doc/refman/Reference-Manual.tex
+++ b/doc/refman/Reference-Manual.tex
@@ -7,6 +7,7 @@
\usepackage[latin1]{inputenc}
\usepackage[T1]{fontenc}
+\usepackage{textcomp}
\usepackage{times}
\usepackage{url}
\usepackage{verbatim}
diff --git a/doc/tutorial/Tutorial.tex b/doc/tutorial/Tutorial.tex
index 5907edb615..55ef730a5f 100755
--- a/doc/tutorial/Tutorial.tex
+++ b/doc/tutorial/Tutorial.tex
@@ -1,6 +1,7 @@
\documentclass[11pt,a4paper]{book}
\usepackage[T1]{fontenc}
\usepackage[latin1]{inputenc}
+\usepackage{textcomp}
\usepackage{pslatex}
\input{../common/version.tex}
diff --git a/tools/coq_tex.ml b/tools/coq_tex.ml
index c47be6e770..e2d66b4abc 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