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