nil)))
;;;###autoload
-(defun encoded-kbd-setup-display (display)
- "Set up a `input-decode-map' for `keyboard-coding-system' on DISPLAY.
+(defun encoded-kbd-setup-display (terminal)
+ "Set up a `input-decode-map' for `keyboard-coding-system' on TERMINAL.
-DISPLAY may be a display id, a frame, or nil for the selected frame's display."
- (let ((frame (if (framep display) display (car (frames-on-display-list display)))))
+TERMINAL may be a terminal id, a frame, or nil for the selected frame's terminal."
+ (let ((frame (if (framep terminal)
+ terminal
+ (car (frames-on-display-list terminal)))))
(when frame
(with-selected-frame frame
;; Remove any previous encoded-kb keymap from input-decode-map.
This is normally set according to the selected language environment.
See also the command `set-terminal-coding-system'.")
-(defun set-terminal-coding-system (coding-system &optional display)
+(defun set-terminal-coding-system (coding-system &optional terminal)
"Set coding system of terminal output to CODING-SYSTEM.
-All text output to DISPLAY will be encoded
+All text output to TERMINAL will be encoded
with the specified coding system.
For a list of possible values of CODING-SYSTEM, use \\[list-coding-systems].
The default is determined by the selected language environment
or by the previous use of this command.
-DISPLAY may be a display id, a frame, or nil for the selected frame's display.
-The setting has no effect on graphical displays."
+TERMINAL may be a terminal object, a frame, or nil for the
+selected frame's terminal. The setting has no effect on
+graphical terminals."
(interactive
(list (let ((default (if (and (not (terminal-coding-system))
default-terminal-coding-system)
(setq coding-system default-terminal-coding-system))
(if coding-system
(setq default-terminal-coding-system coding-system))
- (set-terminal-coding-system-internal coding-system display)
+ (set-terminal-coding-system-internal coding-system terminal)
(redraw-frame (selected-frame)))
(defvar default-keyboard-coding-system nil
This is normally set according to the selected language environment.
See also the command `set-keyboard-coding-system'.")
-(defun set-keyboard-coding-system (coding-system &optional display)
- "Set coding system for keyboard input on DISPLAY to CODING-SYSTEM.
+(defun set-keyboard-coding-system (coding-system &optional terminal)
+ "Set coding system for keyboard input on TERMINAL to CODING-SYSTEM.
In addition, this command calls `encoded-kbd-setup-display' to set up the
translation of keyboard input events to the specified coding system.
The default is determined by the selected language environment
or by the previous use of this command.
-DISPLAY may be a display id, a frame, or nil for the selected frame's display.
-The setting has no effect on graphical displays."
+TERMINAL may be a terminal object, a frame, or nil for the
+selected frame's terminal. The setting has no effect on
+graphical terminals."
(interactive
(list (let ((default (if (and (not (keyboard-coding-system))
default-keyboard-coding-system)
(not (coding-system-get coding-system :ascii-compatible-p))
(not (coding-system-get coding-system :suitable-for-keyboard)))
(error "%s is not suitable for keyboard" coding-system))
- (set-keyboard-coding-system-internal coding-system display)
+ (set-keyboard-coding-system-internal coding-system terminal)
(setq keyboard-coding-system coding-system)
- (encoded-kbd-setup-display display))
+ (encoded-kbd-setup-display terminal))
(defcustom keyboard-coding-system nil
"Specify coding system for keyboard input.