From f5c7c0ebafa7f1861c879a9c78ada7bea611599f Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 1 Sep 1997 07:19:38 +0000 Subject: [PATCH] (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. --- lisp/international/quail.el | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/lisp/international/quail.el b/lisp/international/quail.el index a8ad5fb6c74..49c9bbb25fe 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -247,6 +247,10 @@ LEIM is available from the same ftp directory as Emacs.")) (while (< i 127) (define-key map (char-to-string i) 'quail-start-translation) (setq i (1+ i))) + (setq i 128) + (while (< i 256) + (define-key map (vector i) 'quail-start-translation) + (setq i (1+ i))) map) "Keymap for Quail mode.") @@ -271,6 +275,10 @@ LEIM is available from the same ftp directory as Emacs.")) (while (< i 127) (define-key map (char-to-string i) 'quail-self-insert-command) (setq i (1+ i))) + (setq i 128) + (while (< i 127) + (define-key map (vector i) 'quail-self-insert-command) + (setq i (1+ i))) (define-key map "\177" 'quail-delete-last-char) (define-key map "\C-f" 'quail-next-translation) (define-key map "\C-b" 'quail-prev-translation) @@ -278,7 +286,6 @@ LEIM is available from the same ftp directory as Emacs.")) (define-key map "\C-p" 'quail-prev-translation-block) (define-key map "\C-i" 'quail-completion) (define-key map "\C-@" 'quail-select-current) - (define-key map "\C-c" 'quail-abort-translation) (define-key map "\C-h" 'quail-translation-help) (define-key map "\e" '(keymap (t . quail-execute-non-quail-command))) (define-key map [tab] 'quail-completion) @@ -318,6 +325,10 @@ This map is activated while translation region is active.") (define-key map (char-to-string i) 'quail-start-translation-in-conversion-mode) (setq i (1+ i))) + (setq i 128) + (while (< i 127) + (define-key map (vector i) 'quail-start-translation-in-conversion-mode) + (setq i (1+ i))) (define-key map "\C-b" 'quail-conversion-backward-char) (define-key map "\C-f" 'quail-conversion-forward-char) (define-key map "\C-a" 'quail-conversion-beginning-of-region) -- 2.39.2