fix &get_chars_unified().

diff --git a/inCHISE b/inCHISE
index 0750906..59ea158 100755 (executable)
--- a/inCHISE
+++ b/inCHISE
@@ -32,7 +32,7 @@ $opt_order{'UniGB'}='g';
 $opt_order{'UniJIS'}='j';
 $opt_order{'UniKS'}='k';
 
-$opt_allow_unify=0; # 1=true, 0=false.
+$opt_allow_unify=1; # 1=true, 0=false.
 $opt_protrude=0;# 1=true, 0=false.
 
 ### End ###
@@ -453,6 +453,7 @@ sub get_output_char{
            if($out_char_id=&get_char_attribute($char,'=ucs@ks')
               or $out_char_id=&get_char_attribute($char,'=ucs')
               or $out_char_id=&get_char_attribute($char,'=>ucs@ks')
+              or $out_char_id=&get_char_attribute($char,'=>ucs*')
               or $out_char_id=&get_char_attribute($char,'=>ucs')
               ){
                return '{\selectksxfont\char'.$out_char_id.'}';
@@ -516,7 +517,8 @@ sub get_chars_unified{
     if($chars=&get_char_attribute($char,'->ucs-unified')){
        $chars=~s/^\((.*)\)$/$1/;
        return (split(/\s*\?/,$chars));
-    }elsif($ucs=&get_char_attribute($char,'=>ucs')){
+    }elsif($ucs=&get_char_attribute($char,'=>ucs*')
+         or $ucs=&get_char_attribute($char,'=>ucs')){
        $char_ucs=pack("U",$ucs);
        if($chars=&get_char_attribute($char_ucs,'->ucs-unified')){
            $chars=~s/^\((.*)\)$/$1/;