diff options
| author | Maxence Guesdon <maxence.guesdon@inria.fr> | 2002-07-22 15:59:38 +0000 |
|---|---|---|
| committer | Maxence Guesdon <maxence.guesdon@inria.fr> | 2002-07-22 15:59:38 +0000 |
| commit | 674fbc45a4874bd164c77c68f746a5728ecac1ee (patch) | |
| tree | 42d68a455d973060a9ef4764d0c7582eb4befa93 | |
| parent | 8bd27a45b4dd08c8cfb28fc1bfa61d9953c472e1 (diff) | |
correction typos pour génération latex
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5019 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | ocamldoc/odoc_latex.ml | 2 | ||||
| -rw-r--r-- | ocamldoc/odoc_messages.ml | 2 | ||||
| -rw-r--r-- | ocamldoc/odoc_name.ml | 5 | ||||
| -rw-r--r-- | ocamldoc/odoc_to_text.ml | 2 |
4 files changed, 7 insertions, 4 deletions
diff --git a/ocamldoc/odoc_latex.ml b/ocamldoc/odoc_latex.ml index 200a65406..12f935d68 100644 --- a/ocamldoc/odoc_latex.ml +++ b/ocamldoc/odoc_latex.ml @@ -122,7 +122,7 @@ class text = for i = 0 to len - 1 do match name.[i] with '_' -> if no_ then () else Buffer.add_char buf '_' - | '~' -> Buffer.add_char buf 'X' + | '~' -> if no_ then () else Buffer.add_char buf '~' | '@' -> Buffer.add_string buf "\"@" | '!' -> Buffer.add_string buf "\"!" | '|' -> Buffer.add_string buf "\"|" diff --git a/ocamldoc/odoc_messages.ml b/ocamldoc/odoc_messages.ml index 55c4dd09b..f21607d28 100644 --- a/ocamldoc/odoc_messages.ml +++ b/ocamldoc/odoc_messages.ml @@ -259,7 +259,7 @@ let methods = "Methods" let authors = "Author(s)" let version = "Version" let since = "Since" -let deprecated = "Deprecated !" +let deprecated = "Deprecated." let raises = "Raises" let returns = "Returns" let inherits = "Inherits" diff --git a/ocamldoc/odoc_name.ml b/ocamldoc/odoc_name.ml index 05af46043..00adb2cb0 100644 --- a/ocamldoc/odoc_name.ml +++ b/ocamldoc/odoc_name.ml @@ -25,7 +25,10 @@ let infix_chars = [ '|' ; '/' ; '$' ; '%' ; - '=' + '=' ; + ':' ; + '~' ; + '!' ; ] type t = string diff --git a/ocamldoc/odoc_to_text.ml b/ocamldoc/odoc_to_text.ml index ab60c4bb7..27d0d8072 100644 --- a/ocamldoc/odoc_to_text.ml +++ b/ocamldoc/odoc_to_text.ml @@ -143,7 +143,7 @@ class virtual info = let t = (match info.i_deprecated with None -> [] - | Some t -> ( Raw (Odoc_messages.deprecated^" ") ) :: t + | Some t -> ( Italic [Raw (Odoc_messages.deprecated^" ")] ) :: t ) @ (match info.i_desc with None -> [] |