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