diff --git a/src/line_gap.sml b/src/line_gap.sml
index bffd78b..1a62c15 100644
--- a/src/line_gap.sml
+++ b/src/line_gap.sml
@@ -1694,13 +1694,16 @@ struct
                    let
                      val _ = println "1594"
                    in
-                     { idx = 0
-                     , line = 0
-                     , leftStrings = leftStrings
-                     , leftLines = leftLines
-                     , rightStrings = rightStrings
-                     , rightLines = rightLines
-                     }
+                     moveLeftAndDelete
+                       ( start
+                       , finish
+                       , prevIdx
+                       , curLine - Vector.length leftLinesHd
+                       , leftStringsTl
+                       , leftLinesTl
+                       , [leftStringsHd]
+                       , [leftLinesHd]
+                       )
                    end)
             else if prevIdx < finish then
               if prevIdx > start then