Mercurial > emacs
comparison lisp/international/encoded-kb.el @ 90001:1e6118d38ca9
(encoded-kbd-setup-keymap): Fix
previous change.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 04 Oct 2004 02:54:57 +0000 |
| parents | 5e9097d1ad99 |
| children | b826d8196afd |
comparison
equal
deleted
inserted
replaced
| 90000:a61d4f087213 | 90001:1e6118d38ca9 |
|---|---|
| 283 ((eq (coding-system-type coding) 'utf-8) | 283 ((eq (coding-system-type coding) 'utf-8) |
| 284 (let ((i #xC0)) | 284 (let ((i #xC0)) |
| 285 (while (< i 256) | 285 (while (< i 256) |
| 286 (define-key key-translation-map | 286 (define-key key-translation-map |
| 287 (vector i) 'encoded-kbd-self-insert-utf-8) | 287 (vector i) 'encoded-kbd-self-insert-utf-8) |
| 288 (setq i (1+ i))))) | 288 (setq i (1+ i)))) |
| 289 8) | |
| 289 | 290 |
| 290 (t | 291 (t |
| 291 nil))) | 292 nil))) |
| 292 | 293 |
| 293 ;; key-translation-map at the time Encoded-kbd mode is turned on is | 294 ;; key-translation-map at the time Encoded-kbd mode is turned on is |