[uim-commit] r1403 - branches/r5rs/scm

[ekato at freedesktop.org]

Author: ekato
Date: 2005-09-03 23:42:45 -0700 (Sat, 03 Sep 2005)
New Revision: 1403

Modified:
   branches/r5rs/scm/generic.scm
Log:
* scm/generic.scm : Port r1402 from trunk.


Modified: branches/r5rs/scm/generic.scm
===================================================================
--- branches/r5rs/scm/generic.scm	2005-09-04 06:41:44 UTC (rev 1402)
+++ branches/r5rs/scm/generic.scm	2005-09-04 06:42:45 UTC (rev 1403)
@@ -457,7 +457,8 @@
 (define generic-set-candidate-index-handler
   (lambda (pc idx)
     (let ((rkc (generic-context-rk-context pc)))
-      (generic-context-set-rk-nth! pc idx))))
+      (generic-context-set-rk-nth! pc idx)
+      (generic-update-preedit pc))))
 
 (define generic-init-handler
   (lambda (id im init-handler)