Mercurial > emacs
comparison lisp/international/kkc.el @ 20638:c3360a392ae4
Change "?\C-\ " to "?\C- " because "\ " is changed
to standing for nothing in lread.c (read_escape).
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 12 Jan 1998 05:48:48 +0000 |
parents | a17cd573df1c |
children | a83818674920 |
comparison
equal
deleted
inserted
replaced
20637:8a5bdbbc1d6a | 20638:c3360a392ae4 |
---|---|
94 (define-key map "\C-f" 'kkc-next-phrase) | 94 (define-key map "\C-f" 'kkc-next-phrase) |
95 (define-key map "K" 'kkc-katakana) | 95 (define-key map "K" 'kkc-katakana) |
96 (define-key map "H" 'kkc-hiragana) | 96 (define-key map "H" 'kkc-hiragana) |
97 (define-key map "l" 'kkc-show-conversion-list-or-next-group) | 97 (define-key map "l" 'kkc-show-conversion-list-or-next-group) |
98 (define-key map "L" 'kkc-show-conversion-list-or-prev-group) | 98 (define-key map "L" 'kkc-show-conversion-list-or-prev-group) |
99 (define-key map [?\C-\ ] 'kkc-first-char-only) | 99 (define-key map [?\C- ] 'kkc-first-char-only) |
100 (define-key map [delete] 'kkc-cancel) | 100 (define-key map [delete] 'kkc-cancel) |
101 (define-key map [return] 'kkc-terminate) | 101 (define-key map [return] 'kkc-terminate) |
102 (let ((meta-map (make-sparse-keymap))) | 102 (let ((meta-map (make-sparse-keymap))) |
103 (define-key map (char-to-string meta-prefix-char) meta-map) | 103 (define-key map (char-to-string meta-prefix-char) meta-map) |
104 (define-key map [escape] meta-map)) | 104 (define-key map [escape] meta-map)) |