Commit 15f7f59e authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(kkc-help): New function.

(kkc-keymap): Use sparse keymap.  Add key binding for kkc-help.
parent 7624ebb9
......@@ -71,8 +71,14 @@ This string is shown at mode line when users are in KKC mode.")
(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 @@ This string is shown at mode line when users are in KKC mode.")
(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 @@ and the return value is the length of the conversion."
(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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment