Mercurial > emacs
changeset 23032:d5a1574f7fb8
(kkc-help): New function.
(kkc-keymap): Use sparse keymap. Add key binding for kkc-help.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sat, 15 Aug 1998 01:28:14 +0000 |
| parents | 5e2bc240edfc |
| children | f5b12a1c1d70 |
| files | lisp/international/kkc.el |
| diffstat | 1 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/kkc.el Sat Aug 15 01:28:14 1998 +0000 +++ b/lisp/international/kkc.el Sat Aug 15 01:28:14 1998 +0000 @@ -71,8 +71,14 @@ (defvar kkc-show-conversion-list-index-chars "1234567890") +(defun kkc-help () + "Show key bindings available while converting by KKC." + (interactive) + (with-output-to-temp-buffer "*Help*" + (princ (substitute-command-keys "\\{kkc-keymap}")))) + (defvar kkc-keymap - (let ((map (make-keymap)) + (let ((map (make-sparse-keymap)) (len (length kkc-show-conversion-list-index-chars)) (i 0)) (while (< i len) @@ -99,6 +105,7 @@ (define-key map [?\C- ] 'kkc-first-char-only) (define-key map [delete] 'kkc-cancel) (define-key map [return] 'kkc-terminate) + (define-key map "\C-h" 'kkc-help) map) "Keymap for KKC (Kana Kanji Converter).") @@ -235,6 +242,7 @@ (setq kkc-converting t) (while kkc-converting (let* ((overriding-terminal-local-map kkc-keymap) + (help-char nil) (keyseq (read-key-sequence nil)) (cmd (lookup-key kkc-keymap keyseq))) (if (commandp cmd)