diff options
| -rw-r--r-- | lisp/international/quail.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/international/quail.el b/lisp/international/quail.el index b7a5592d5ab..b6723bfbb0b 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el | |||
| @@ -287,7 +287,8 @@ LEIM is available from the same ftp directory as Emacs.")) | |||
| 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) |
| @@ -309,7 +310,8 @@ This map is activated while translation region is active.") | |||
| 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. |
| @@ -336,7 +338,8 @@ This map is activated while translation region is active.") | |||
| 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) |