fix display of include directives and comments associated to include directives are not kept and displayed

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5941 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 6 insertions, 3 deletions

diff --git a/ocamldoc/odoc_latex.ml b/ocamldoc/odoc_latex.ml
index bc7e9b7efe..20d494ea21 100644
--- a/ocamldoc/odoc_latex.ml
+++ b/ocamldoc/odoc_latex.ml
@@ -573,13 +573,16 @@ class latex =
 
     (** Return the LaTeX code for the given included module. *)
     method latex_of_included_module im =
-      (self#latex_of_text [ Code "include module " ; 
-                            Code 
+      (self#latex_of_text ((Code "include ") ::
+                           (Code 
                               (match im.im_module with
                                 None -> im.im_name
                               | Some (Mod m) -> m.m_name
                               | Some (Modtype mt) -> mt.mt_name)
-                          ] )
+			   ) ::
+			   (self#text_of_info im.im_info)
+                          )
+      )
 
     (** Return the LaTeX code for the given class. 
        @param for_detail indicate if we must print the type ([false]) or just ["object"] ([true]).*)