From: Kenichi Handa <handa@m17n.org>
Date: Mon, 1 Sep 1997 07:19:38 +0000 (+0000)
Subject: (quail-translation-keymap): Do not bind
X-Git-Tag: emacs-20.1~301
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f5c7c0ebafa7f1861c879a9c78ada7bea611599f;p=emacs.git

(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.
---

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)