Revision: 6807
Author: deton.kih
Date: Tue Nov 9 03:09:49 2010
Log: * scm/tutcode.scm
- (tutcode-auto-help-update-stroke-alist-normal-with-kanji
Change to show kanji on auto-help for with-real-keys setting.
http://code.google.com/p/uim/source/detail?r=6807
Modified:
/trunk/scm/tutcode.scm
=======================================
--- /trunk/scm/tutcode.scm Mon Nov 8 03:30:35 2010
+++ /trunk/scm/tutcode.scm Tue Nov 9 03:09:49 2010
@@ -1352,7 +1352,9 @@
(let ((stroke (tutcode-reverse-find-seq kanji)))
(if stroke
(tutcode-auto-help-update-stroke-alist-normal-with-stroke
- label-cands-alist stroke kanji)
+ label-cands-alist
+ (cons (string-append kanji " ") stroke)
+ kanji)
(let ((decomposed (tutcode-auto-help-bushu-decompose kanji)))
;; Îã: "·Ò" => (((("," "o"))("·â")) ((("f" "q"))("»å")))
(if (not decomposed)
@@ -1360,7 +1362,7 @@
(tutcode-auto-help-update-stroke-alist-normal-with-stroke
label-cands-alist
(cons
- (string-append "¢¥"
+ (string-append kanji "¢¥"
(caar (cdar decomposed)) (caar (cdadr decomposed)) " ")
(append
(caaar decomposed) ; Éô¼ó1
