Mercurial > emacs
comparison lisp/international/kkc.el @ 19931:a17cd573df1c
(kkc-mode-map): Bind all control keys to kkc-non-kkc-command.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 15 Sep 1997 05:08:48 +0000 |
| parents | 3c4025f3be8f |
| children | c3360a392ae4 |
comparison
equal
deleted
inserted
replaced
| 19930:1e0f347ee021 | 19931:a17cd573df1c |
|---|---|
| 69 "1234567890abcdefghijklmnopqrsuvwxyz") | 69 "1234567890abcdefghijklmnopqrsuvwxyz") |
| 70 | 70 |
| 71 (defvar kkc-mode-map | 71 (defvar kkc-mode-map |
| 72 (let ((map (make-keymap)) | 72 (let ((map (make-keymap)) |
| 73 (i 0)) | 73 (i 0)) |
| 74 (while (< i ? ) | |
| 75 (define-key map (char-to-string i) 'undefined) | |
| 76 (setq i (1+ i))) | |
| 77 (while (< i 128) | 74 (while (< i 128) |
| 78 (define-key map (char-to-string i) 'kkc-non-kkc-command) | 75 (define-key map (char-to-string i) 'kkc-non-kkc-command) |
| 79 (setq i (1+ i))) | 76 (setq i (1+ i))) |
| 80 (setq i 0) | 77 (setq i 0) |
| 81 (let ((len (length kkc-show-conversion-list-index-chars))) | 78 (let ((len (length kkc-show-conversion-list-index-chars))) |