(setq coding-system default-keyboard-coding-system))
(if coding-system
(setq default-keyboard-coding-system coding-system))
- (set-keyboard-coding-system-internal coding-system)
+ (if (and coding-system
+ (coding-system-get coding-system 'ascii-incompatible))
+ (error "%s is not ASCII-compatible" coding-system))
+ (set-keyboard-coding-system-internal coding-system display)
(setq keyboard-coding-system coding-system)
- (encoded-kbd-mode (if coding-system 1 0)))
+ (encoded-kbd-setup-display display))
(defcustom keyboard-coding-system nil
"Specify coding system for keyboard input.