181 |
((eq (coding-system-type coding) 1) ; SJIS |
((eq (coding-system-type coding) 1) ; SJIS |
182 |
(let ((i 128)) |
(let ((i 128)) |
183 |
(while (< i 256) |
(while (< i 256) |
184 |
(define-key encoded-kbd-mode-map |
(define-key key-translation-map |
185 |
(vector i) 'encoded-kbd-self-insert-sjis) |
(vector i) 'encoded-kbd-self-insert-sjis) |
186 |
(setq i (1+ i)))) |
(setq i (1+ i)))) |
187 |
8) |
8) |
189 |
((eq (coding-system-type coding) 3) ; Big5 |
((eq (coding-system-type coding) 3) ; Big5 |
190 |
(let ((i 161)) |
(let ((i 161)) |
191 |
(while (< i 255) |
(while (< i 255) |
192 |
(define-key encoded-kbd-mode-map |
(define-key key-translation-map |
193 |
(vector i) 'encoded-kbd-self-insert-big5) |
(vector i) 'encoded-kbd-self-insert-big5) |
194 |
(setq i (1+ i)))) |
(setq i (1+ i)))) |
195 |
8) |
8) |