[uim-commit] r2265 - trunk/scm
ekato at freedesktop.org
ekato at freedesktop.org
Sun Nov 27 07:04:15 PST 2005
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)
More information about the uim-commit
mailing list