diff options
| author | Richard M. Stallman | 1997-09-15 05:08:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-09-15 05:08:48 +0000 |
| commit | 749992b811c9b390dacc27ba8c5cec42fcb4d382 (patch) | |
| tree | a51ce089b998041aad1fd2aa784363369933a84b | |
| parent | 17b76fbd4c9b5ce720c2f21bf8846fd0207449a5 (diff) | |
| download | emacs-749992b811c9b390dacc27ba8c5cec42fcb4d382.tar.gz emacs-749992b811c9b390dacc27ba8c5cec42fcb4d382.zip | |
(kkc-mode-map): Bind all control keys to kkc-non-kkc-command.
| -rw-r--r-- | lisp/international/kkc.el | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/lisp/international/kkc.el b/lisp/international/kkc.el index a9da69c7834..ab00b03f2fc 100644 --- a/lisp/international/kkc.el +++ b/lisp/international/kkc.el | |||
| @@ -71,9 +71,6 @@ This string is shown at mode line when users are in KKC mode.") | |||
| 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))) |