[uim-commit] r240 - trunk/scm

[yamaken@freedesktop.org]

Author: yamaken
Date: 2005-01-10 19:14:17 -0800 (Mon, 10 Jan 2005)
New Revision: 240

Modified:
   trunk/scm/m17nlib.scm
Log:
* scm/m17nlib.scm
  - Add a comment about duplicated-im-list
  - (duplicated-im?): Simplify


Modified: trunk/scm/m17nlib.scm
===================================================================
--- trunk/scm/m17nlib.scm	2005-01-11 03:07:34 UTC (rev 239)
+++ trunk/scm/m17nlib.scm	2005-01-11 03:14:17 UTC (rev 240)
@@ -286,6 +286,10 @@
   (lambda (mc idx)
     #f))
 
+;; Developer specified IM rejection should be withdrawn after we got
+;; user-manageable enabled IM list feature. These redundant IMs should
+;; be "disabled by default, but can be enabled" under the feature.
+;;   -- YamaKen 2005-01-11
 (define duplicated-im-list
   '("m17n-ja-anthy"
     "m17n-ja-tcode"
@@ -294,12 +298,7 @@
 
 (define duplicated-im?
   (lambda (name)
-    (let loop ((im-list duplicated-im-list))
-      (if (string=? name (car im-list))
-	  #t
-	  (if (null? (cdr im-list))
-	      #f
-	      (loop (cdr im-list)))))))
+    (member name duplicated-im-list)
 
 (define m17nlib-register
   (lambda (i nr-im)