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 -> ()