diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-09-09 09:02:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-09-09 09:02:25 +0000 |
| commit | c050180edb2bf9e632c8cb699f7c5b82bef8fa28 (patch) | |
| tree | 7f1c978a39ed68c8141fd0ef5a2c5151478cc8a1 | |
| parent | 94f8f0214f695758060cfad481d85f2f78170ce0 (diff) | |
| download | emacs-c050180edb2bf9e632c8cb699f7c5b82bef8fa28.tar.gz | |
(quail-translation-keymap)
(quail-simple-translation-keymap, quail-conversion-keymap):
Don't define escape.
| -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.")) (define-key map "\C-i" 'quail-completion) (define-key map "\C-@" 'quail-select-current) (define-key map "\C-h" 'quail-translation-help) - (define-key map "\e" '(keymap (t . quail-execute-non-quail-command))) +;;; This interferes with handling of escape sequences on non-X terminals. +;;; (define-key map "\e" '(keymap (t . quail-execute-non-quail-command))) (define-key map [?\C-\ ] 'quail-select-current) (define-key map [tab] 'quail-completion) (define-key map [delete] 'quail-delete-last-char) @@ -309,7 +310,8 @@ This map is activated while translation region is active.") (define-key map (char-to-string i) 'quail-self-insert-command) (setq i (1+ i))) (define-key map "\177" 'quail-delete-last-char) - (define-key map "\e" '(keymap (t . quail-execute-non-quail-command))) +;;; This interferes with handling of escape sequences on non-X terminals. +;;; (define-key map "\e" '(keymap (t . quail-execute-non-quail-command))) ;; At last, define default key binding. (append map '((t . quail-execute-non-quail-command)))) "Keymap used while processing translation in simple Quail modes. @@ -336,7 +338,8 @@ This map is activated while translation region is active.") (define-key map "\C-e" 'quail-conversion-end-of-region) (define-key map "\C-d" 'quail-conversion-delete-char) (define-key map "\C-h" 'quail-conversion-help) - (define-key map "\e" '(keymap (t . quail-execute-non-quail-command))) +;;; This interferes with handling of escape sequences on non-X terminals. +;;; (define-key map "\e" '(keymap (t . quail-execute-non-quail-command))) (define-key map "\177" 'quail-conversion-backward-delete-char) (define-key map [delete] 'quail-conversion-backward-delete-char) (define-key map [backspace] 'quail-conversion-backward-delete-char) |