fix(lsp): goto_line_backward abs_pos

fix book-keeping of [abs_pos] in [String_zipper.goto_line_backward]
ocaml · May 17, 2024 · 2fd9670 · 2fd9670
1 parent 08bfb3d
commit 2fd9670
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lsp/src/string_zipper.ml b/lsp/src/string_zipper.ml
@@ -293,7 +293,7 @@ let drop_until from until =
       | [] -> empty
       | current :: left ->
         let rel_pos = Substring.length current in
-        let abs_pos = from.rel_pos + rel_pos in
+        let abs_pos = from.abs_pos + rel_pos in
         { from with right; left; current; rel_pos; abs_pos })
 
 let add_buffer_between b start stop =