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: 0.4.95@7852~112
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=e9f71f9574114a42d5f68c1339290feba92cef1a;p=helm.git

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

diff --git a/components/content_pres/cicNotationLexer.ml b/components/content_pres/cicNotationLexer.ml
index bd071c5b9..911ddc57e 100644
--- a/components/content_pres/cicNotationLexer.ml
+++ b/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 *)