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