diff options
| author | Maxence Guesdon <maxence.guesdon@inria.fr> | 2008-10-29 13:30:24 +0000 |
|---|---|---|
| committer | Maxence Guesdon <maxence.guesdon@inria.fr> | 2008-10-29 13:30:24 +0000 |
| commit | 3a95d57eda0ab631c583ebbaff5053fab1026a81 (patch) | |
| tree | 7958d2a575c0611e1b55d280c6107bd89e54c163 | |
| parent | d4e4bdaaa294549188f6a586856336b234334dba (diff) | |
PR#4630: minor fix in ocamldoc man page generation
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@9112 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | ocamldoc/odoc_man.ml | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/ocamldoc/odoc_man.ml b/ocamldoc/odoc_man.ml index fefbe0877..8296e5080 100644 --- a/ocamldoc/odoc_man.ml +++ b/ocamldoc/odoc_man.ml @@ -204,6 +204,8 @@ class man = match s.[i] with '\\' -> Buffer.add_string b "\\(rs" | '.' -> Buffer.add_string b "\\&." + | '\'' -> Buffer.add_string b "\\&'" + | '-' -> Buffer.add_string b "\\-" | c -> Buffer.add_char b c done; Buffer.contents b @@ -633,15 +635,15 @@ class man = (** Print groff string for a module comment.*) method man_of_module_comment b text = - bs b "\n.pp\n"; + bs b "\n.PP\n"; self#man_of_text b [Code ("=== "^(Odoc_misc.string_of_text text)^" ===")]; - bs b "\n.pp\n" + bs b "\n.PP\n" (** Print groff string for a class comment.*) method man_of_class_comment b text = - bs b "\n.pp\n"; + bs b "\n.PP\n"; self#man_of_text b [Code ("=== "^(Odoc_misc.string_of_text text)^" ===")]; - bs b "\n.pp\n" + bs b "\n.PP\n" (** Print groff string for an included module. *) method man_of_included_module b m_name im = |