Mercurial > emacs
comparison lisp/international/quail.el @ 19655:47d11f4bbc6c
(quail-translation-keymap): Fix previous
change.
(quail-conversion-keymap): Likewise.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 01 Sep 1997 12:36:34 +0000 |
| parents | 9b9af28bee8d |
| children | 32c3f7d9ef10 |
comparison
equal
deleted
inserted
replaced
| 19654:4c0174fcf26c | 19655:47d11f4bbc6c |
|---|---|
| 274 (setq i (1+ i))) | 274 (setq i (1+ i))) |
| 275 (while (< i 127) | 275 (while (< i 127) |
| 276 (define-key map (char-to-string i) 'quail-self-insert-command) | 276 (define-key map (char-to-string i) 'quail-self-insert-command) |
| 277 (setq i (1+ i))) | 277 (setq i (1+ i))) |
| 278 (setq i 128) | 278 (setq i 128) |
| 279 (while (< i 127) | 279 (while (< i 256) |
| 280 (define-key map (vector i) 'quail-self-insert-command) | 280 (define-key map (vector i) 'quail-self-insert-command) |
| 281 (setq i (1+ i))) | 281 (setq i (1+ i))) |
| 282 (define-key map "\177" 'quail-delete-last-char) | 282 (define-key map "\177" 'quail-delete-last-char) |
| 283 (define-key map "\C-f" 'quail-next-translation) | 283 (define-key map "\C-f" 'quail-next-translation) |
| 284 (define-key map "\C-b" 'quail-prev-translation) | 284 (define-key map "\C-b" 'quail-prev-translation) |
| 324 (while (< i 127) | 324 (while (< i 127) |
| 325 (define-key map (char-to-string i) | 325 (define-key map (char-to-string i) |
| 326 'quail-start-translation-in-conversion-mode) | 326 'quail-start-translation-in-conversion-mode) |
| 327 (setq i (1+ i))) | 327 (setq i (1+ i))) |
| 328 (setq i 128) | 328 (setq i 128) |
| 329 (while (< i 127) | 329 (while (< i 256) |
| 330 (define-key map (vector i) 'quail-start-translation-in-conversion-mode) | 330 (define-key map (vector i) 'quail-start-translation-in-conversion-mode) |
| 331 (setq i (1+ i))) | 331 (setq i (1+ i))) |
| 332 (define-key map "\C-b" 'quail-conversion-backward-char) | 332 (define-key map "\C-b" 'quail-conversion-backward-char) |
| 333 (define-key map "\C-f" 'quail-conversion-forward-char) | 333 (define-key map "\C-f" 'quail-conversion-forward-char) |
| 334 (define-key map "\C-a" 'quail-conversion-beginning-of-region) | 334 (define-key map "\C-a" 'quail-conversion-beginning-of-region) |