diff options
| author | Kenichi Handa | 1997-09-01 12:36:34 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-09-01 12:36:34 +0000 |
| commit | 094550e6868359f20f7633fb543574b536e2772d (patch) | |
| tree | c8eac8b741134a3a1e22b09c62587479cdd97344 | |
| parent | 3df608415e6b46b2cb881dbff3b11a28a5acc57d (diff) | |
| download | emacs-094550e6868359f20f7633fb543574b536e2772d.tar.gz emacs-094550e6868359f20f7633fb543574b536e2772d.zip | |
(quail-translation-keymap): Fix previous
change.
(quail-conversion-keymap): Likewise.
| -rw-r--r-- | lisp/international/quail.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 49c9bbb25fe..ff3a92e6f7e 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el | |||
| @@ -276,7 +276,7 @@ LEIM is available from the same ftp directory as Emacs.")) | |||
| 276 | (define-key map (char-to-string i) 'quail-self-insert-command) | 276 | (define-key map (char-to-string i) 'quail-self-insert-command) |
| 277 | (setq i (1+ i))) | 277 | (setq i (1+ i))) |
| 278 | (setq i 128) | 278 | (setq i 128) |
| 279 | (while (< i 127) | 279 | (while (< i 256) |
| 280 | (define-key map (vector i) 'quail-self-insert-command) | 280 | (define-key map (vector i) 'quail-self-insert-command) |
| 281 | (setq i (1+ i))) | 281 | (setq i (1+ i))) |
| 282 | (define-key map "\177" 'quail-delete-last-char) | 282 | (define-key map "\177" 'quail-delete-last-char) |
| @@ -326,7 +326,7 @@ This map is activated while translation region is active.") | |||
| 326 | 'quail-start-translation-in-conversion-mode) | 326 | 'quail-start-translation-in-conversion-mode) |
| 327 | (setq i (1+ i))) | 327 | (setq i (1+ i))) |
| 328 | (setq i 128) | 328 | (setq i 128) |
| 329 | (while (< i 127) | 329 | (while (< i 256) |
| 330 | (define-key map (vector i) 'quail-start-translation-in-conversion-mode) | 330 | (define-key map (vector i) 'quail-start-translation-in-conversion-mode) |
| 331 | (setq i (1+ i))) | 331 | (setq i (1+ i))) |
| 332 | (define-key map "\C-b" 'quail-conversion-backward-char) | 332 | (define-key map "\C-b" 'quail-conversion-backward-char) |