]> matita.cs.unibo.it Git - helm.git/commitdiff
uft8 string length bug fixed (Ctr-Alt-. did not work properly any longer)
authorEnrico Tassi <enrico.tassi@inria.fr>
Fri, 14 Apr 2006 11:36:27 +0000 (11:36 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Fri, 14 Apr 2006 11:36:27 +0000 (11:36 +0000)
helm/software/matita/matitaScript.ml

index 7f4d800f7bee7ea9fde338d9136c0bed973f67ac..b853ddd4e76cdf93eaee7a504432f7d5962012a0 100644 (file)
@@ -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