Mercurial > emacs
comparison lisp/international/quail.el @ 19844:1e682aef0ce0
(quail-translation-keymap)
(quail-simple-translation-keymap, quail-conversion-keymap):
Don't define escape.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 09 Sep 1997 09:02:25 +0000 |
| parents | 66b7051ac215 |
| children | 1c5164d81426 |
comparison
equal
deleted
inserted
replaced
| 19843:0c9342c1054d | 19844:1e682aef0ce0 |
|---|---|
| 285 (define-key map "\C-n" 'quail-next-translation-block) | 285 (define-key map "\C-n" 'quail-next-translation-block) |
| 286 (define-key map "\C-p" 'quail-prev-translation-block) | 286 (define-key map "\C-p" 'quail-prev-translation-block) |
| 287 (define-key map "\C-i" 'quail-completion) | 287 (define-key map "\C-i" 'quail-completion) |
| 288 (define-key map "\C-@" 'quail-select-current) | 288 (define-key map "\C-@" 'quail-select-current) |
| 289 (define-key map "\C-h" 'quail-translation-help) | 289 (define-key map "\C-h" 'quail-translation-help) |
| 290 (define-key map "\e" '(keymap (t . quail-execute-non-quail-command))) | 290 ;;; This interferes with handling of escape sequences on non-X terminals. |
| 291 ;;; (define-key map "\e" '(keymap (t . quail-execute-non-quail-command))) | |
| 291 (define-key map [?\C-\ ] 'quail-select-current) | 292 (define-key map [?\C-\ ] 'quail-select-current) |
| 292 (define-key map [tab] 'quail-completion) | 293 (define-key map [tab] 'quail-completion) |
| 293 (define-key map [delete] 'quail-delete-last-char) | 294 (define-key map [delete] 'quail-delete-last-char) |
| 294 (define-key map [backspace] 'quail-delete-last-char) | 295 (define-key map [backspace] 'quail-delete-last-char) |
| 295 ;; At last, define default key binding. | 296 ;; At last, define default key binding. |
| 307 (setq i (1+ i))) | 308 (setq i (1+ i))) |
| 308 (while (< i 127) | 309 (while (< i 127) |
| 309 (define-key map (char-to-string i) 'quail-self-insert-command) | 310 (define-key map (char-to-string i) 'quail-self-insert-command) |
| 310 (setq i (1+ i))) | 311 (setq i (1+ i))) |
| 311 (define-key map "\177" 'quail-delete-last-char) | 312 (define-key map "\177" 'quail-delete-last-char) |
| 312 (define-key map "\e" '(keymap (t . quail-execute-non-quail-command))) | 313 ;;; This interferes with handling of escape sequences on non-X terminals. |
| 314 ;;; (define-key map "\e" '(keymap (t . quail-execute-non-quail-command))) | |
| 313 ;; At last, define default key binding. | 315 ;; At last, define default key binding. |
| 314 (append map '((t . quail-execute-non-quail-command)))) | 316 (append map '((t . quail-execute-non-quail-command)))) |
| 315 "Keymap used while processing translation in simple Quail modes. | 317 "Keymap used while processing translation in simple Quail modes. |
| 316 A few especially complex input methods use `quail--translation-keymap' instead. | 318 A few especially complex input methods use `quail--translation-keymap' instead. |
| 317 This map is activated while translation region is active.") | 319 This map is activated while translation region is active.") |
| 334 (define-key map "\C-f" 'quail-conversion-forward-char) | 336 (define-key map "\C-f" 'quail-conversion-forward-char) |
| 335 (define-key map "\C-a" 'quail-conversion-beginning-of-region) | 337 (define-key map "\C-a" 'quail-conversion-beginning-of-region) |
| 336 (define-key map "\C-e" 'quail-conversion-end-of-region) | 338 (define-key map "\C-e" 'quail-conversion-end-of-region) |
| 337 (define-key map "\C-d" 'quail-conversion-delete-char) | 339 (define-key map "\C-d" 'quail-conversion-delete-char) |
| 338 (define-key map "\C-h" 'quail-conversion-help) | 340 (define-key map "\C-h" 'quail-conversion-help) |
| 339 (define-key map "\e" '(keymap (t . quail-execute-non-quail-command))) | 341 ;;; This interferes with handling of escape sequences on non-X terminals. |
| 342 ;;; (define-key map "\e" '(keymap (t . quail-execute-non-quail-command))) | |
| 340 (define-key map "\177" 'quail-conversion-backward-delete-char) | 343 (define-key map "\177" 'quail-conversion-backward-delete-char) |
| 341 (define-key map [delete] 'quail-conversion-backward-delete-char) | 344 (define-key map [delete] 'quail-conversion-backward-delete-char) |
| 342 (define-key map [backspace] 'quail-conversion-backward-delete-char) | 345 (define-key map [backspace] 'quail-conversion-backward-delete-char) |
| 343 ;; At last, define default key binding. | 346 ;; At last, define default key binding. |
| 344 (append map '((t . quail-execute-non-quail-command)))) | 347 (append map '((t . quail-execute-non-quail-command)))) |