From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Tue, 16 Oct 2007 09:55:32 +0000 (+0000)
Subject: DOS-style CR+LF added to the blanks list.
X-Git-Tag: make_still_working~5961
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=130dc73bc5d47891f184a34d664222bde0ec8164;p=helm.git

DOS-style CR+LF added to the blanks list.
---

diff --git a/helm/software/components/content_pres/cicNotationLexer.ml b/helm/software/components/content_pres/cicNotationLexer.ml
index bd071c5b9..911ddc57e 100644
--- a/helm/software/components/content_pres/cicNotationLexer.ml
+++ b/helm/software/components/content_pres/cicNotationLexer.ml
@@ -30,7 +30,7 @@ open Printf
 exception Error of int * int * string
 
 let regexp number = xml_digit+
-let regexp utf8_blank = " " | "\n" | "\t" | [160] (* this is a nbsp *)
+let regexp utf8_blank = " " | "\r\n" | "\n" | "\t" | [160] (* this is a nbsp *)
 
   (* ZACK: breaks unicode's binder followed by an ascii letter without blank *)
 (* let regexp ident_letter = xml_letter *)