(interactive "zkeyboard-coding-system: ")
(get-coding-system coding-system) ; correctness check
(setq keyboard-coding-system coding-system)
(interactive "zkeyboard-coding-system: ")
(get-coding-system coding-system) ; correctness check
(setq keyboard-coding-system coding-system)