From: Kenichi Handa <handa@m17n.org>
Date: Sat, 15 Aug 1998 01:28:14 +0000 (+0000)
Subject: (kkc-help): New function.
X-Git-Tag: emacs-20.3~47
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=15f7f59e3e07cce65515070f31f8d365c3aa72d5;p=emacs.git

(kkc-help): New function.
(kkc-keymap): Use sparse keymap.  Add key binding for kkc-help.
---

diff --git a/lisp/international/kkc.el b/lisp/international/kkc.el
index 3cc7607b0ec..8b872630d5d 100644
--- a/lisp/international/kkc.el
+++ b/lisp/international/kkc.el
@@ -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)