Mercurial > emacs
comparison lisp/international/quail.el @ 19881:3ff7106cf88f
(quail-translation-keymap): Fix previous
change.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 12 Sep 1997 02:14:46 +0000 |
| parents | a69ae37e6932 |
| children | e135dd522e64 |
comparison
equal
deleted
inserted
replaced
| 19880:14dec6a251c7 | 19881:3ff7106cf88f |
|---|---|
| 269 (or (assq 'quail-mode map) | 269 (or (assq 'quail-mode map) |
| 270 (set-default 'minor-mode-map-alist (cons 'quail-mode map))))) | 270 (set-default 'minor-mode-map-alist (cons 'quail-mode map))))) |
| 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))) |
| 278 (setq i 128) | 281 (setq i 128) |
| 279 (while (< i 256) | 282 (while (< i 256) |