Mercurial > emacs
diff lisp/international/mule.el @ 83321:f6ed7ae6fa8d
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 |
line wrap: on
line diff
--- a/lisp/international/mule.el Sun Jun 26 21:12:57 2005 +0000 +++ b/lisp/international/mule.el Mon Jun 27 00:39:09 2005 +0000 @@ -1232,9 +1232,8 @@ (defun set-keyboard-coding-system (coding-system &optional display) "Set coding system for keyboard input on DISPLAY to CODING-SYSTEM. -In addition, this command enables Encoded-kbd minor mode. -\(If CODING-SYSTEM is nil, Encoded-kbd mode is turned off -- see -`encoded-kbd-mode'.) +In addition, this command calls `encoded-kbd-setup-display' to set up the +translation of keyboard input events to 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 @@ -1257,7 +1256,7 @@ (setq default-keyboard-coding-system 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.