[uim-commit] r1287 - trunk/scm

[ekato at freedesktop.org]

Author: ekato
Date: 2005-08-22 20:07:01 -0700 (Mon, 22 Aug 2005)
New Revision: 1287

Modified:
   trunk/scm/skk.scm
Log:
* scm/skk.scm (skk-flush) : Cosmetic change.


Modified: trunk/scm/skk.scm
===================================================================
--- trunk/scm/skk.scm	2005-08-23 03:02:44 UTC (rev 1286)
+++ trunk/scm/skk.scm	2005-08-23 03:07:01 UTC (rev 1287)
@@ -355,11 +355,10 @@
       (skk-reset-candidate-window sc)
       (skk-context-set-nr-candidates! sc 0)
       (skk-context-set-latin-conv! sc #f)
+      (skk-context-set-child-context! sc '())
+      (skk-context-set-child-type! sc '())
       (if (not (null? csc))
-	  (begin
-	    (skk-flush csc)
-	    (skk-context-set-child-context! sc '())
-	    (skk-context-set-child-type! sc '()))))))
+	  (skk-flush csc)))))
 
 (define skk-context-new
   (lambda (id im)