Revision: 6516
Author: deton.kih
Date: Sat Jul 17 01:48:17 2010
Log: * scm/tutcode.scm
- (tutcode-auto-help-cand-str-list):
Change each list up to three strings to avoid confusion
if complicated bushu conversion which uses three or more bushu is
supported
- (tutcode-auto-help-update-stroke-alist-with-stroke):
Follow the change of tutcode-auto-help-cand-str-list
http://code.google.com/p/uim/source/detail?r=6516
Modified:
/trunk/scm/tutcode.scm
=======================================
--- /trunk/scm/tutcode.scm Fri Jul 16 21:50:58 2010
+++ /trunk/scm/tutcode.scm Sat Jul 17 01:48:17 2010
@@ -159,13 +159,13 @@
;;; ¼«Æ°¥Ø¥ë¥×¤Ç¤Îʸ»ú¤ÎÂǤÁÊýɽ¼¨¤ÎºÝ¤Ë¸õÊäʸ»úÎó¤È¤·¤Æ»È¤¦Ê¸»ú¤Î¥ê¥¹¥È
(define tutcode-auto-help-cand-str-list
- ;; Âè1,2,3,4ÂǸ°¤ò¼¨¤¹Ê¸»ú(Éô¼ó1ÍÑ, Éô¼ó2ÍÑ)
- '((("1" "2" "3" "4") ("5" "6" "7" "8")) ; 1ʸ»úÌÜÍÑ
- (("a" "b" "c" "d") ("e" "f" "g" "h")) ; 2ʸ»úÌÜÍÑ
- (("A" "B" "C" "D") ("E" "F" "G" "H"))
- (("°ì" "Æó" "»°" "»Í") ("¸Þ" "Ï»" "¼·" "Ȭ"))
- (("¤¢" "¤¤" "¤¦" "¤¨") ("¤«" "¤" "¤¯" "¤±"))
- (("¥¢" "¥¤" "¥¦" "¥¨") ("¥«" "¥" "¥¯" "¥±"))))
+ ;; Âè1,2,3ÂǸ°¤ò¼¨¤¹Ê¸»ú(Éô¼ó1ÍÑ, Éô¼ó2ÍÑ)
+ '((("1" "2" "3") ("4" "5" "6")) ; 1ʸ»úÌÜÍÑ
+ (("a" "b" "c") ("d" "e" "f")) ; 2ʸ»úÌÜÍÑ
+ (("A" "B" "C") ("D" "E" "F"))
+ (("°ì" "Æó" "»°") ("»Í" "¸Þ" "Ï»"))
+ (("¤¢" "¤¤" "¤¦") ("¤«" "¤" "¤¯"))
+ (("¥¢" "¥¤" "¥¦") ("¥«" "¥" "¥¯"))))
;;; implementations
@@ -707,7 +707,7 @@
;;; @return ¹¹¿·¸å¤Î¼«Æ°¥Ø¥ë¥×ÍÑalist
(define (tutcode-auto-help-update-stroke-alist-with-stroke
label-cands-alist
cand-list stroke)
- (if (null? stroke)
+ (if (or (null? cand-list) (null? stroke))
label-cands-alist
(tutcode-auto-help-update-stroke-alist-with-stroke
(tutcode-auto-help-update-stroke-alist-with-key
