]> matita.cs.unibo.it Git - helm.git/commitdiff
DOS-style CR+LF added to the blanks list.
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Tue, 16 Oct 2007 09:55:32 +0000 (09:55 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Tue, 16 Oct 2007 09:55:32 +0000 (09:55 +0000)
helm/software/components/content_pres/cicNotationLexer.ml

index bd071c5b9a6da869dc1384ac7264a5c83ce20bcb..911ddc57eeb4580a2eec8936b5468c61f8e38fb7 100644 (file)
@@ -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 *)