ocaml 3.09 transition

[helm.git] / helm / DEVEL / mathml_editor / src / LPushLexer.cc

diff --git a/helm/DEVEL/mathml_editor/src/LPushLexer.cc b/helm/DEVEL/mathml_editor/src/LPushLexer.cc
index 8a22d6678bad9c13ae1c7cda52b2c73d18adfb3b..a16801bf0d03f6e533be2fce52d5ffd33823173a 100644 (file)
--- a/helm/DEVEL/mathml_editor/src/LPushLexer.cc
+++ b/helm/DEVEL/mathml_editor/src/LPushLexer.cc
@@ -25,6 +25,7 @@
 
 #include <string>
 #include <cctype>
+#include <cassert>
 
 #include "ALogger.hh"
 #include "TToken.hh"
@@ -41,6 +42,8 @@ LPushLexer::reset()
 {
   buffer.erase();
   state = ACCEPT;
+
+  displayCursor();
 }
 
 void
@@ -188,7 +191,7 @@ LPushLexer::push(char ch)
        }
       break;
     case ESCAPED_CHARACTER:
-      if ((ch == '-') || (ch == '_'))
+      if ((ch == '-') || (ch == '_') || (ch == '/'))
         {
          buffer.push_back(ch);
          state = IDENTIFIER;