method more_key_bindings =
List.map
(fun (ks, _) ->
let com = Printf.sprintf "%s_eval_custom_key_binding \"%s\""
Ed_minibuffer_rc.base_name (Ed_keymaps.string_of_state ks)
in
(ks, com)
)
more_key_bindings