From 0c11a83a8a4242974ffd9e6511a10ae604b86d7c Mon Sep 17 00:00:00 2001
From: Maxence Guesdon <maxence.guesdon@inria.fr>
Date: Thu, 18 Apr 2002 13:20:50 +0000
Subject: [PATCH] utilisation de la classe .code dans les balsises code

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4702 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 ocamldoc/odoc_ocamlhtml.mll | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ocamldoc/odoc_ocamlhtml.mll b/ocamldoc/odoc_ocamlhtml.mll
index cff408ade..5881f4a59 100644
--- a/ocamldoc/odoc_ocamlhtml.mll
+++ b/ocamldoc/odoc_ocamlhtml.mll
@@ -181,7 +181,7 @@ let print_comment () =
 	     "</code><table><tr><td>"^(make_margin ())^"</td><td>"^
 	     "<span class=\""^comment_class^"\">"^
 	     "(**"^html^"*)"^
-	     "</span></td></tr></table><code>"
+	     "</span></td></tr></table><code class=\""^code_class^"\">"
 	   with
 	     e ->
 	       prerr_endline (Printexc.to_string e);
@@ -506,8 +506,8 @@ let html_of_code ?(with_pre=true) code =
   margin := 0;
   
 
-  let start = "<span class=\""^code_class^"\"><code>" in
-  let ending = "</code></span>" in
+  let start = "<code class=\""^code_class^"\">" in
+  let ending = "</code>" in
   let html = 
     (
      try