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 |