[uim-commit] r947 - trunk/scm

yamaken at freedesktop.org yamaken at freedesktop.org
Wed Jul 6 23:28:18 PDT 2005


Author: yamaken
Date: 2005-07-06 23:28:07 -0700 (Wed, 06 Jul 2005)
New Revision: 947

Modified:
   trunk/scm/im-custom.scm
Log:
* scm/im-custom.scm
  - (custom-im-list-as-choice-rec): Simplify. Validated with test-im.scm


Modified: trunk/scm/im-custom.scm
===================================================================
--- trunk/scm/im-custom.scm	2005-07-07 05:01:02 UTC (rev 946)
+++ trunk/scm/im-custom.scm	2005-07-07 06:28:07 UTC (rev 947)
@@ -34,15 +34,13 @@
 ;; ugettext should be performed higher layer
 (define custom-im-list-as-choice-rec
   (lambda (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))))
+     (filter-map (lambda (im)
+		   (and 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)))
   
 (define-custom-group 'global
 		     (_ "Global settings")



More information about the uim-commit mailing list