Revision: 6805
Author: deton.kih
Date: Mon Nov 8 03:30:35 2010
Log: * scm/tutcode.scm
- (tutcode-auto-help-update-stroke-alist-with-kanji):
Change to show kanji on auto-help.
http://code.google.com/p/uim/source/detail?r=6805
Modified:
/trunk/scm/tutcode.scm
=======================================
--- /trunk/scm/tutcode.scm Sun Nov 7 21:28:46 2010
+++ /trunk/scm/tutcode.scm Mon Nov 8 03:30:35 2010
@@ -1326,7 +1326,9 @@
(let ((stroke (tutcode-reverse-find-seq kanji)))
(if stroke
(tutcode-auto-help-update-stroke-alist-with-stroke
- label-cands-alist (car cand-list) stroke)
+ label-cands-alist
+ (cons (string-append (caar cand-list) "(" kanji ")") (cdar
cand-list))
+ stroke)
(let ((decomposed (tutcode-auto-help-bushu-decompose kanji)))
;; Îã: "·Ò" => (((("," "o"))("·â")) ((("f" "q"))("»å")))
(if (not decomposed)
@@ -1335,7 +1337,7 @@
(tutcode-auto-help-update-stroke-alist-with-stroke
label-cands-alist
(cons
- (string-append (caar cand-list) "(¢¥"
+ (string-append (caar cand-list) "(" kanji "¢¥"
(caar (cdar decomposed)) (caar (cdadr decomposed)) ")")
(cdar cand-list))
(caaar decomposed)) ; Éô¼ó1
