From 03c97be2de0631d512bcc40ee536c88cdbb31fbd Mon Sep 17 00:00:00 2001
From: handa <handa>
Date: Wed, 28 Jun 2006 07:22:15 +0000
Subject: [PATCH] (mscript__char_list): Fix finding a char-list element.

---
 src/language.c |    2 ++
 1 file changed, 2 insertions(+)

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;
-- 
1.7.10.4