[uim-commit] r461 - trunk/scm

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-02-01 07:15:38 -0800 (Tue, 01 Feb 2005)
New Revision: 461

Modified:
   trunk/scm/im-custom.scm
Log:
* scm/im-custom.scm
  - (custom-installed-im-list): Resolve the "reloading a file that
    contains multiple IMs" problem as temporary solution. It's a quite
    dirty way and should be replaced by proper way after 0.4.6


Modified: trunk/scm/im-custom.scm
===================================================================
--- trunk/scm/im-custom.scm	2005-02-01 14:33:07 UTC (rev 460)
+++ trunk/scm/im-custom.scm	2005-02-01 15:15:38 UTC (rev 461)
@@ -141,9 +141,13 @@
 
 (define custom-installed-im-list
   (lambda ()
-    (let ((orig-enabled-im-list enabled-im-list))
+    (let ((orig-enabled-im-list enabled-im-list)
+	  (orig-require require))
       (set! enabled-im-list ())  ;; enable all IMs
+      ;; XXX temporary solution to register all IM in a file
+      (set! require load)
       (for-each require-module installed-im-module-list)
+      (set! require orig-require)
       (set! enabled-im-list orig-enabled-im-list)
       (custom-im-list-as-choice-rec (reverse
 				     (alist-delete 'direct im-list eq?))))))