Mercurial > emacs
comparison lisp/international/quail.el @ 19647:9b9af28bee8d
(quail-translation-keymap): Do not bind
"\C-c" to quail-abort-translation.
(quail-mode-map): Bind key codes 128 through 256 to
quail-start-translation.
(quail-translation-keymap): Bind key codes 128 through 256 to
quail-self-insert-command.
(quail-conversion-keymap): Bind key codes 128 through 256 to
quail-start-translation-in-conversion-mode.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 01 Sep 1997 07:19:38 +0000 |
| parents | b033d0b34c71 |
| children | 47d11f4bbc6c |
comparison
equal
deleted
inserted
replaced
| 19646:175c12fff246 | 19647:9b9af28bee8d |
|---|---|
| 245 (let ((map (make-keymap)) | 245 (let ((map (make-keymap)) |
| 246 (i ? )) | 246 (i ? )) |
| 247 (while (< i 127) | 247 (while (< i 127) |
| 248 (define-key map (char-to-string i) 'quail-start-translation) | 248 (define-key map (char-to-string i) 'quail-start-translation) |
| 249 (setq i (1+ i))) | 249 (setq i (1+ i))) |
| 250 (setq i 128) | |
| 251 (while (< i 256) | |
| 252 (define-key map (vector i) 'quail-start-translation) | |
| 253 (setq i (1+ i))) | |
| 250 map) | 254 map) |
| 251 "Keymap for Quail mode.") | 255 "Keymap for Quail mode.") |
| 252 | 256 |
| 253 (or (assq 'quail-mode minor-mode-map-alist) | 257 (or (assq 'quail-mode minor-mode-map-alist) |
| 254 (setq minor-mode-map-alist | 258 (setq minor-mode-map-alist |
| 269 (define-key map (char-to-string i) 'quail-execute-non-quail-command) | 273 (define-key map (char-to-string i) 'quail-execute-non-quail-command) |
| 270 (setq i (1+ i))) | 274 (setq i (1+ i))) |
| 271 (while (< i 127) | 275 (while (< i 127) |
| 272 (define-key map (char-to-string i) 'quail-self-insert-command) | 276 (define-key map (char-to-string i) 'quail-self-insert-command) |
| 273 (setq i (1+ i))) | 277 (setq i (1+ i))) |
| 278 (setq i 128) | |
| 279 (while (< i 127) | |
| 280 (define-key map (vector i) 'quail-self-insert-command) | |
| 281 (setq i (1+ i))) | |
| 274 (define-key map "\177" 'quail-delete-last-char) | 282 (define-key map "\177" 'quail-delete-last-char) |
| 275 (define-key map "\C-f" 'quail-next-translation) | 283 (define-key map "\C-f" 'quail-next-translation) |
| 276 (define-key map "\C-b" 'quail-prev-translation) | 284 (define-key map "\C-b" 'quail-prev-translation) |
| 277 (define-key map "\C-n" 'quail-next-translation-block) | 285 (define-key map "\C-n" 'quail-next-translation-block) |
| 278 (define-key map "\C-p" 'quail-prev-translation-block) | 286 (define-key map "\C-p" 'quail-prev-translation-block) |
| 279 (define-key map "\C-i" 'quail-completion) | 287 (define-key map "\C-i" 'quail-completion) |
| 280 (define-key map "\C-@" 'quail-select-current) | 288 (define-key map "\C-@" 'quail-select-current) |
| 281 (define-key map "\C-c" 'quail-abort-translation) | |
| 282 (define-key map "\C-h" 'quail-translation-help) | 289 (define-key map "\C-h" 'quail-translation-help) |
| 283 (define-key map "\e" '(keymap (t . quail-execute-non-quail-command))) | 290 (define-key map "\e" '(keymap (t . quail-execute-non-quail-command))) |
| 284 (define-key map [tab] 'quail-completion) | 291 (define-key map [tab] 'quail-completion) |
| 285 (define-key map [delete] 'quail-delete-last-char) | 292 (define-key map [delete] 'quail-delete-last-char) |
| 286 (define-key map [backspace] 'quail-delete-last-char) | 293 (define-key map [backspace] 'quail-delete-last-char) |
| 315 (define-key map (char-to-string i) 'quail-execute-non-quail-command) | 322 (define-key map (char-to-string i) 'quail-execute-non-quail-command) |
| 316 (setq i (1+ i))) | 323 (setq i (1+ i))) |
| 317 (while (< i 127) | 324 (while (< i 127) |
| 318 (define-key map (char-to-string i) | 325 (define-key map (char-to-string i) |
| 319 'quail-start-translation-in-conversion-mode) | 326 'quail-start-translation-in-conversion-mode) |
| 327 (setq i (1+ i))) | |
| 328 (setq i 128) | |
| 329 (while (< i 127) | |
| 330 (define-key map (vector i) 'quail-start-translation-in-conversion-mode) | |
| 320 (setq i (1+ i))) | 331 (setq i (1+ i))) |
| 321 (define-key map "\C-b" 'quail-conversion-backward-char) | 332 (define-key map "\C-b" 'quail-conversion-backward-char) |
| 322 (define-key map "\C-f" 'quail-conversion-forward-char) | 333 (define-key map "\C-f" 'quail-conversion-forward-char) |
| 323 (define-key map "\C-a" 'quail-conversion-beginning-of-region) | 334 (define-key map "\C-a" 'quail-conversion-beginning-of-region) |
| 324 (define-key map "\C-e" 'quail-conversion-end-of-region) | 335 (define-key map "\C-e" 'quail-conversion-end-of-region) |