[uim-commit] r946 - trunk/scm

[tkng at freedesktop.org]

Author: tkng
Date: 2005-07-06 22:01:02 -0700 (Wed, 06 Jul 2005)
New Revision: 946

Modified:
   trunk/scm/im-custom.scm
Log:
* scm/im-custom.scm:
 -(custom-im-list-as-choice-rec): Added #f check for im.


Modified: trunk/scm/im-custom.scm
===================================================================
--- trunk/scm/im-custom.scm	2005-07-07 03:11:04 UTC (rev 945)
+++ trunk/scm/im-custom.scm	2005-07-07 05:01:02 UTC (rev 946)
@@ -34,13 +34,16 @@
 ;; ugettext should be performed higher layer
 (define custom-im-list-as-choice-rec
   (lambda (lst)
-    (map (lambda (im)
-	   (let ((sym (im-name im))
-		 (name-label (ugettext (im-name-label im)))
-		 (desc (ugettext (im-short-desc im))))
-	     (custom-choice-rec-new sym name-label desc)))
-	 lst)))
-
+    (filter list?
+     (map (lambda (im)
+	    (if im
+		(let ((sym (im-name im))
+		      (name-label (ugettext (im-name-label im)))
+		      (desc (ugettext (im-short-desc im))))
+		  (custom-choice-rec-new sym name-label desc))
+		#f))
+	  lst))))
+  
 (define-custom-group 'global
 		     (_ "Global settings")
 		     (_ "long description will be here."))