From f2f311928a6d2fee5b567079555bd46556342a9c Mon Sep 17 00:00:00 2001
From: malc <moosotc@gmail.com>
Date: Wed, 5 Aug 2015 18:51:00 +0300
Subject: [PATCH] Reset state.text in enttext

---
 main.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/main.ml b/main.ml
index 312b16b..7602ad0 100644
--- a/main.ml
+++ b/main.ml
@@ -2481,6 +2481,7 @@ end;;
 
 let textentrykeyboard
     key _mask ((c, text, opthist, onkey, ondone, cancelonempty), onleave) =
+  state.text <- E.s;
   let key =
     if key >= 0xffb0 && key <= 0xffb9
     then key - 0xffb0 + 48 else key
-- 
2.11.4.GIT