From 4767d724d489a7ad67f696e9401e70b9f9ae2143 Mon Sep 17 00:00:00 2001
From: Samuel Mimram <smimram@debian.org>
Date: Mon, 15 Oct 2007 19:55:12 +0000
Subject: Imported Upstream version 8.1.pl2+dfsg

---
 tools/coqdoc/pretty.mll | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'tools/coqdoc')

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); 
-- 
cgit v1.2.3