Mercurial > emacs

comparison lisp/international/mule.el @ 83321:f6ed7ae6fa8d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replace encoded-kbd-mode with display-specific encoded-kbd-setup-display. (Doesn't work yet.) * lisp/international/encoded-kb.el (saved-key-translation-map): Remove. (encoded-kbd-mode): Remove. (encoded-kbd-setup-display): New function. * lisp/international/mule.el (set-keyboard-coding-system): Use it. git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-361
author Karoly Lorentey <lorentey@elte.hu>
date Mon, 27 Jun 2005 00:39:09 +0000
parents 6fef25c75847
children 9e41c80c6389
comparison
equal deleted inserted replaced
83320:ebfb2856c8e6 83321:f6ed7ae6fa8d
1230 This is normally set according to the selected language environment. 1230 This is normally set according to the selected language environment.
1231 See also the command `set-keyboard-coding-system'.") 1231 See also the command `set-keyboard-coding-system'.")
1232 1232
1233 (defun set-keyboard-coding-system (coding-system &optional display) 1233 (defun set-keyboard-coding-system (coding-system &optional display)
1234 "Set coding system for keyboard input on DISPLAY to CODING-SYSTEM. 1234 "Set coding system for keyboard input on DISPLAY to CODING-SYSTEM.
1235 In addition, this command enables Encoded-kbd minor mode. 1235 In addition, this command calls `encoded-kbd-setup-display' to set up the
1236 \(If CODING-SYSTEM is nil, Encoded-kbd mode is turned off -- see 1236 translation of keyboard input events to the specified coding system.
1237 `encoded-kbd-mode'.)
1238 1237
1239 For a list of possible values of CODING-SYSTEM, use \\[list-coding-systems]. 1238 For a list of possible values of CODING-SYSTEM, use \\[list-coding-systems].
1240 The default is determined by the selected language environment 1239 The default is determined by the selected language environment
1241 or by the previous use of this command. 1240 or by the previous use of this command.
1242 1241
1255 (setq coding-system default-keyboard-coding-system)) 1254 (setq coding-system default-keyboard-coding-system))
1256 (if coding-system 1255 (if coding-system
1257 (setq default-keyboard-coding-system coding-system)) 1256 (setq default-keyboard-coding-system coding-system))
1258 (set-keyboard-coding-system-internal coding-system display) 1257 (set-keyboard-coding-system-internal coding-system display)
1259 (setq keyboard-coding-system coding-system) 1258 (setq keyboard-coding-system coding-system)
1260 (encoded-kbd-mode (if coding-system 1 0))) 1259 (encoded-kbd-setup-display display))
1261 1260
1262 (defcustom keyboard-coding-system nil 1261 (defcustom keyboard-coding-system nil
1263 "Specify coding system for keyboard input. 1262 "Specify coding system for keyboard input.
1264 If you set this on a terminal which can't distinguish Meta keys from 1263 If you set this on a terminal which can't distinguish Meta keys from
1265 8-bit characters, you will have to use ESC to type Meta characters. 1264 8-bit characters, you will have to use ESC to type Meta characters.