From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Wed, 18 Jun 2003 12:59:11 +0000 (+0000)
Subject: Porting to the new "long-identifiers" editex lexer.
X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=commitdiff_plain;h=94768368c6ec74fd86e80ae792e8d311d6d84cb4

Porting to the new "long-identifiers" editex lexer.
---

diff --git a/helm/ocaml/tex_cic_textual_parser/texCicTextualLexer.mll b/helm/ocaml/tex_cic_textual_parser/texCicTextualLexer.mll
index 320162c75..01ddd0cf3 100644
--- a/helm/ocaml/tex_cic_textual_parser/texCicTextualLexer.mll
+++ b/helm/ocaml/tex_cic_textual_parser/texCicTextualLexer.mll
@@ -71,7 +71,7 @@ let conuri = baseuri "con"
 let varuri = baseuri "var"
 let indtyuri = baseuri "ind#1/" num
 let indconuri = baseuri "ind#1/" num "/" num
-let blanks = [' ' '\t' '\n' '~' '{' '}'] | "\\;"
+let blanks = [' ' '\t' '\n' '~' '{' '}'] | "\\;" | "\\rm"
 rule token =
  parse
     blanks      { token lexbuf } (* skip blanks *)