[uim-commit] r2265 - trunk/scm

[ekato at freedesktop.org]

Author: ekato
Date: 2005-11-27 07:04:10 -0800 (Sun, 27 Nov 2005)
New Revision: 2265

Modified:
   trunk/scm/im.scm
Log:
* scm/im.scm (toggle-im) : Bug fix.


Modified: trunk/scm/im.scm
===================================================================
--- trunk/scm/im.scm	2005-11-27 14:17:05 UTC (rev 2264)
+++ trunk/scm/im.scm	2005-11-27 15:04:10 UTC (rev 2265)
@@ -208,9 +208,12 @@
       (if (eq? name toggle-im-alt-im)
 	  (begin
 	    (set! toggle-im-alt-preserved-widget-states widget-states)
-	    (uim-switch-im id toggle-im-preserved-im)
-	    (context-update-widget-states! (find-context id)
-					   toggle-im-preserved-widget-states))
+	    (if toggle-im-preserved-im
+		(begin
+		  (uim-switch-im id toggle-im-preserved-im)
+		  (context-update-widget-states!
+		   (find-context id)
+		   toggle-im-preserved-widget-states))))
 	  (begin
 	    (set! toggle-im-preserved-im name)
 	    (set! toggle-im-preserved-widget-states widget-states)