From: handa <handa>
Date: Fri, 2 Dec 2005 04:43:40 +0000 (+0000)
Subject: (mlang__init): Handle extra chars.
X-Git-Tag: REL-1-3-0~42
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7623ef0f4c2008dc44b94ae249a8a62942dad23c;p=m17n%2Fm17n-lib.git

(mlang__init): Handle extra chars.
---

diff --git a/src/language.c b/src/language.c
index 546f995..0646a61 100644
--- a/src/language.c
+++ b/src/language.c
@@ -62,7 +62,7 @@ mlang__init ()
     {
       MPlist *p;
       MSymbol code3, code2, lang;
-      MText *native;
+      MText *native, *extra;
 
       if (! MPLIST_PLIST_P (pl))
 	continue;
@@ -82,7 +82,13 @@ mlang__init ()
       p = MPLIST_NEXT (p);      
       native = MPLIST_MTEXT_P (p) ? MPLIST_MTEXT (p) : NULL;
       if (native)
-	msymbol_put (code3, Mtext, native);
+	{
+	  msymbol_put (code3, Mtext, native);
+	  p = MPLIST_NEXT (p);
+	  extra = MPLIST_MTEXT_P (p) ? MPLIST_MTEXT (p) : NULL;
+	  if (extra)
+	    mtext_put_prop (native, 0, mtext_nchars (native), Mtext, extra);
+	}
       if (code2 != Mnil)
 	{
 	  msymbol_put (code3, Miso639_1, code2);