From: handa <handa>
Date: Wed, 28 Jun 2006 07:22:15 +0000 (+0000)
Subject: (mscript__char_list): Fix finding a char-list element.
X-Git-Tag: REL-1-3-4~152
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=03c97be2de0631d512bcc40ee536c88cdbb31fbd;p=m17n%2Fm17n-lib.git

(mscript__char_list): Fix finding a char-list element.
---

diff --git a/src/language.c b/src/language.c
index 2798cbb..785d5a0 100644
--- a/src/language.c
+++ b/src/language.c
@@ -209,6 +209,8 @@ mscript__char_list (MSymbol name)
 
   if (plist			/* script name */
       && (plist = MPLIST_NEXT (plist)) /* language list */
+      && ! MPLIST_TAIL_P (plist)
+      && (plist = MPLIST_NEXT (plist)) /* char list */
       && MPLIST_PLIST_P (plist))
     return MPLIST_PLIST (plist);
   return NULL;