diff options
| author | Kenichi Handa | 1997-09-12 02:14:46 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-09-12 02:14:46 +0000 |
| commit | 3ef477b92d71da506002fd26d8b56afb36a4d692 (patch) | |
| tree | 8f65098bd6e2f26b8b242c9560402258ed24e474 | |
| parent | a92db45a68c06851d83275d5197e153ae62a221f (diff) | |
| download | emacs-3ef477b92d71da506002fd26d8b56afb36a4d692.tar.gz emacs-3ef477b92d71da506002fd26d8b56afb36a4d692.zip | |
(quail-translation-keymap): Fix previous
change.
| -rw-r--r-- | lisp/international/quail.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 48a07a71d2f..bfc77ab0876 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el | |||
| @@ -271,7 +271,10 @@ LEIM is available from the same ftp directory as Emacs.")) | |||
| 271 | 271 | ||
| 272 | (defvar quail-translation-keymap | 272 | (defvar quail-translation-keymap |
| 273 | (let ((map (make-keymap)) | 273 | (let ((map (make-keymap)) |
| 274 | (i 32)) | 274 | (i 0)) |
| 275 | (while (< i ?\ ) | ||
| 276 | (define-key map (char-to-string i) 'quail-execute-non-quail-command) | ||
| 277 | (setq i (1+ i))) | ||
| 275 | (while (< i 127) | 278 | (while (< i 127) |
| 276 | (define-key map (char-to-string i) 'quail-self-insert-command) | 279 | (define-key map (char-to-string i) 'quail-self-insert-command) |
| 277 | (setq i (1+ i))) | 280 | (setq i (1+ i))) |