method eval_custom_key_binding s = try let (_,f) = List.find (fun (ks, _) -> Ed_keymaps.string_of_state ks = s) more_key_bindings in f () with Not_found -> ()