Added text functions

1 files changed, 1 insertions, 1 deletions

diff --git a/screen.ml b/screen.ml
index 8279c62..c61efea 100755
--- a/screen.ml
+++ b/screen.ml
@@ -280,8 +280,8 @@ let editor ?position ?(prefix=UTF8.empty) ?(init=UTF8.empty) t = begin
   and delete_previous hd = begin
     let y, x = Curses.getyx t.status in
     let length = UTF8.length hd in
+    ignore @@ Curses.wmove t.status y (x - length);
     for position = 1 to length do
-      ignore @@ Curses.wmove t.status y (x - position);
       ignore @@ Curses.wdelch t.status
     done;
   end in