Imported Upstream version 8.1.pl2+dfsgupstream/8.1.pl2+dfsg

1 files changed, 3 insertions, 3 deletions

diff --git a/tools/coqdoc/pretty.mll b/tools/coqdoc/pretty.mll
index c63a6a9b..2bf615d3 100644
--- a/tools/coqdoc/pretty.mll
+++ b/tools/coqdoc/pretty.mll
@@ -6,7 +6,7 @@
 (*         *       GNU Lesser General Public License Version 2.1        *)
 (************************************************************************)
 
-(*i $Id: pretty.mll 10017 2007-07-18 13:23:55Z notin $ i*)
+(*i $Id: pretty.mll 10074 2007-08-13 12:19:44Z notin $ i*)
 
 (*s Utility functions for the scanners *)
 
@@ -367,7 +367,7 @@ rule coq_bol = parse
 	coq_bol lexbuf }
   | space* "(*"
       { let eol = comment lexbuf in
-	  if eol then coq_bol lexbuf else coq lexbuf }
+	  if eol then begin line_break(); coq_bol lexbuf end else coq lexbuf }
   | eof 
       { () }
   | _
@@ -578,7 +578,7 @@ and body = parse
   | '.' space* '\n' | '.' space* eof { char '.'; line_break(); true }      
   | '.' space+ { char '.'; char ' '; false }
   | "(*" { let eol = comment lexbuf in 
-	     if eol then body_bol lexbuf else body lexbuf }
+	     if eol then begin line_break(); body_bol lexbuf end else body lexbuf }
   | identifier 
       { let s = lexeme lexbuf in 
 	  ident s (lexeme_start lexbuf);