method key_bindings : (Okey.keyhit_state * string) list =
      let l =
        Ed_minibuffer_rc.key_bindings#get @
          self#more_key_bindings @
          self#history_key_bindings
      in
      let exiting_keys = remove_used_exiting_keys l in
      let exiting_key_bindings =
        List.map (fun combs -> (combs,Ed_minibuffer_rc.base_name ^"_exit")) exiting_keys
      in
      l @ exiting_key_bindings