let init_common_keymaps () =
  match keymap_common#get with
    [] ->
      List.iter
        (fun (k,a) -> Cam_rc.add_binding keymap_common k a)
        default_common_keymap
  | _ ->
      ()