Mercurial > emacs
comparison lisp/international/encoded-kb.el @ 56598:3caaa79fcb7e
(encoded-kbd-setup-keymap): Fix previous change.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Wed, 04 Aug 2004 13:03:06 +0000 |
parents | 399c8a1fbe0b |
children | fa3ef0f9b02e 3fd4a5c21153 |
comparison
equal
deleted
inserted
replaced
56597:399c8a1fbe0b | 56598:3caaa79fcb7e |
---|---|
179 ;; Then setup the keymap according to the keyboard coding system. | 179 ;; Then setup the keymap according to the keyboard coding system. |
180 (cond | 180 (cond |
181 ((eq (coding-system-type coding) 1) ; SJIS | 181 ((eq (coding-system-type coding) 1) ; SJIS |
182 (let ((i 128)) | 182 (let ((i 128)) |
183 (while (< i 256) | 183 (while (< i 256) |
184 (define-key encoded-kbd-mode-map | 184 (define-key key-translation-map |
185 (vector i) 'encoded-kbd-self-insert-sjis) | 185 (vector i) 'encoded-kbd-self-insert-sjis) |
186 (setq i (1+ i)))) | 186 (setq i (1+ i)))) |
187 8) | 187 8) |
188 | 188 |
189 ((eq (coding-system-type coding) 3) ; Big5 | 189 ((eq (coding-system-type coding) 3) ; Big5 |
190 (let ((i 161)) | 190 (let ((i 161)) |
191 (while (< i 255) | 191 (while (< i 255) |
192 (define-key encoded-kbd-mode-map | 192 (define-key key-translation-map |
193 (vector i) 'encoded-kbd-self-insert-big5) | 193 (vector i) 'encoded-kbd-self-insert-big5) |
194 (setq i (1+ i)))) | 194 (setq i (1+ i)))) |
195 8) | 195 8) |
196 | 196 |
197 ((eq (coding-system-type coding) 2) ; ISO-2022 | 197 ((eq (coding-system-type coding) 2) ; ISO-2022 |