[uim-commit] r540 - trunk/scm

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-02-05 00:18:05 -0800 (Sat, 05 Feb 2005)
New Revision: 540

Modified:
   trunk/scm/im.scm
Log:
* scm/im.scm
  - (register-im): Fix invalid rejection of registering direct
    IM. Thank you Kazuki Ohta for reporting and cooperation.


Modified: trunk/scm/im.scm
===================================================================
--- trunk/scm/im.scm	2005-02-05 08:08:49 UTC (rev 539)
+++ trunk/scm/im.scm	2005-02-05 08:18:05 UTC (rev 540)
@@ -110,7 +110,8 @@
 		mode key-press key-release reset
 		get-candidate set-candidate-index prop)
     (and (or (null? enabled-im-list)  ;; bootstrap
-	     (memq name enabled-im-list))
+	     (memq name enabled-im-list)
+	     (eq? name 'direct))  ;; direct IM must always be enabled
 	 (let ((im (im-new name lang encoding name-label short-desc
 			   init-arg init release
 			   mode key-press key-release reset