Revision: 6437 Author: ek.kato Date: Thu Jun 10 21:06:29 2010 Log: * scm/generic.scm - (generic-update-multi-cand-state-cands) : Bug fix.
http://code.google.com/p/uim/source/detail?r=6437 Modified: /trunk/scm/generic.scm ======================================= --- /trunk/scm/generic.scm Thu Jun 10 19:29:33 2010 +++ /trunk/scm/generic.scm Thu Jun 10 21:06:29 2010 @@ -420,6 +420,7 @@ (let* ((cs (rk-current-seq rkc)) (cands (if cs (cadr cs) '()))) (generic-context-set-cands! pc cands) + (generic-context-set-rk-nth! pc 0) (if cs (if (null? (cdr cands)) (begin
