[uim-commit] r993 - trunk/scm

[tkng at freedesktop.org]

Author: tkng
Date: 2005-07-20 23:17:22 -0700 (Wed, 20 Jul 2005)
New Revision: 993

Modified:
   trunk/scm/canna.scm
Log:
* scm/canna.scm:
 -(canna-init-handler): Connect to canna server if not connected.


Modified: trunk/scm/canna.scm
===================================================================
--- trunk/scm/canna.scm	2005-07-21 05:51:44 UTC (rev 992)
+++ trunk/scm/canna.scm	2005-07-21 06:17:22 UTC (rev 993)
@@ -574,6 +574,11 @@
     (canna-flush cc))
 
 (define (canna-init-handler id im arg)
+  (if (not canna-init-lib-ok?)
+      (begin
+	(canna-lib-init canna-server-name)
+	(set! canna-init-lib-ok?)))
+
   (canna-context-new id im))
 
 (define (canna-release-handler cc)