From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Fri, 14 Apr 2006 11:36:27 +0000 (+0000)
Subject: uft8 string length bug fixed (Ctr-Alt-. did not work properly any longer)
X-Git-Tag: 0.4.95@7852~1501
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=cf822e32d7461fd84838a1e3d100d647a026a541;p=helm.git

uft8 string length bug fixed (Ctr-Alt-. did not work properly any longer)
---

diff --git a/matita/matitaScript.ml b/matita/matitaScript.ml
index 7f4d800f7..b853ddd4e 100644
--- a/matita/matitaScript.ml
+++ b/matita/matitaScript.ml
@@ -718,7 +718,7 @@ object (self)
              self#_retract (icmp - len) lexicon_status grafite_status statements
               history
           | statement::tl1, _::tl2 ->
-             back_until_cursor (len - String.length statement) (tl1,tl2)
+             back_until_cursor (len - MatitaGtkMisc.utf8_string_length statement) (tl1,tl2)
           | _,_ -> assert false
         in
         (try