From 43ac78713e9986fa7dafbc48e1c2aa2bd9a71b14 Mon Sep 17 00:00:00 2001 From: Hannes Mehnert Date: Thu, 30 Mar 2017 12:29:52 +0100 Subject: [PATCH] simplify --- cli/cli_support.ml | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/cli/cli_support.ml b/cli/cli_support.ml index 74f7407..fb80380 100644 --- a/cli/cli_support.ml +++ b/cli/cli_support.ml @@ -251,14 +251,14 @@ let split_forward post = (false, [], []) inp in - (middle, List.rev prep, List.rev post) + (middle @ List.rev prep, List.rev post) let forward_word pre post = - let middle, prepost, post = split_forward post in - (pre @ middle @ prepost, post) + let middle, post = split_forward post in + (pre @ middle, post) let kill_word pre post = - let _, _, post = split_forward post in + let _, post = split_forward post in (pre, post) let split_backward pre = @@ -277,14 +277,14 @@ let split_backward pre = (false, [], []) inp in - (pre, prep, middle) + (pre, prep @ middle) let backward_word pre post = - let pre, prepost, middle = split_backward pre in - (pre, prepost @ middle @ post) + let pre, middle = split_backward pre in + (pre, middle @ post) let backward_kill_word pre post = - let pre, _, _ = split_backward pre in + let pre, _ = split_backward pre in (pre, post) let emacs_bindings = function