method print_key_bindings =
      let l = Ed_gui_rc.window_key_bindings#get @
        (match active_view with
          None -> []
        | Some v -> v#key_bindings)
      in
      List.iter
        (fun (st,com) ->
           Cam_hooks.display_message (Printf.sprintf "%s -> %s"
            (Ed_keymaps.string_of_state st) com))
        l