-(defvar esc-map nil
- "Default keymap for ESC (meta) commands.
-The normal global definition of the character ESC indirects to this keymap.")
+(defvar ctl-x-4-map (make-sparse-keymap)
+ "Keymap for subcommands of C-x 4")
+(fset 'ctl-x-4-prefix ctl-x-4-map)
+(define-key ctl-x-map "4" 'ctl-x-4-prefix)
+
+(defvar ctl-x-3-map (make-sparse-keymap)
+ "Keymap for screen commands.")
+(fset 'ctl-x-3-prefix ctl-x-3-map)
+(define-key ctl-x-map "3" 'ctl-x-3-prefix)