summaryrefslogtreecommitdiff
path: root/lib/editor.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/editor.ml')
-rw-r--r--lib/editor.ml6
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/editor.ml b/lib/editor.ml
index c3e298e..a516b25 100644
--- a/lib/editor.ml
+++ b/lib/editor.ml
@@ -255,7 +255,7 @@ let handle_normal_command =
255 Buffer.Action.delete_to_bol |> on_focused_buffer_or_new 255 Buffer.Action.delete_to_bol |> on_focused_buffer_or_new
256 | _ -> noop 256 | _ -> noop
257 257
258let handle_next_command2 m e = 258let handle_next_command m e =
259 match m with 259 match m with
260 | Insert -> ( 260 | Insert -> (
261 match Sequence.next e.i_pending with 261 match Sequence.next e.i_pending with
@@ -266,6 +266,6 @@ let handle_next_command2 m e =
266 | None -> ((), e) 266 | None -> ((), e)
267 | Some (h, t) -> handle_normal_command h { e with n_pending = t }) 267 | Some (h, t) -> handle_normal_command h { e with n_pending = t })
268 268
269let handle_next_command2 = 269let handle_next_command =
270 let open Action in 270 let open Action in
271 get_mode >>= handle_next_command2 271 get_mode >>= handle_next_command