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 74cda410aa5abc77738684c2304fb9a8762f6f14..a16801bf0d03f6e533be2fce52d5ffd33823173a 100644 (file)
--- a/helm/DEVEL/mathml_editor/src/LPushLexer.cc
+++ b/helm/DEVEL/mathml_editor/src/LPushLexer.cc
@@ -24,6 +24,8 @@
  */
 
 #include <string>
+#include <cctype>
+#include <cassert>
 
 #include "ALogger.hh"
 #include "TToken.hh"
@@ -40,6 +42,8 @@ LPushLexer::reset()
 {
   buffer.erase();
   state = ACCEPT;
+
+  displayCursor();
 }
 
 void
@@ -187,7 +191,7 @@ LPushLexer::push(char ch)
        }
       break;
     case ESCAPED_CHARACTER:
-      if ((ch == '-') || (ch == '_'))
+      if ((ch == '-') || (ch == '_') || (ch == '/'))
         {
          buffer.push_back(ch);
          state = IDENTIFIER;