[uim-commit] r1404 - branches/0.4/scm

[ekato at freedesktop.org]

Author: ekato
Date: 2005-09-03 23:43:23 -0700 (Sat, 03 Sep 2005)
New Revision: 1404

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


Modified: branches/0.4/scm/generic.scm
===================================================================
--- branches/0.4/scm/generic.scm	2005-09-04 06:42:45 UTC (rev 1403)
+++ branches/0.4/scm/generic.scm	2005-09-04 06:43:23 UTC (rev 1404)
@@ -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)