From cc9befb6910e2dacd350f75bffc76dea937ccb5d Mon Sep 17 00:00:00 2001
From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Fri, 14 Apr 2006 11:36:27 +0000
Subject: [PATCH] uft8 string length bug fixed (Ctr-Alt-. did not work properly
 any longer)

---
 helm/software/matita/matitaScript.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/helm/software/matita/matitaScript.ml b/helm/software/matita/matitaScript.ml
index 7f4d800f7..b853ddd4e 100644
--- a/helm/software/matita/matitaScript.ml
+++ b/helm/software/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
-- 
2.39.2