From 76729e5fb4c4cb0447849b7954ee4e6500c7cefd Mon Sep 17 00:00:00 2001
From: imiyazaki <imiyazaki>
Date: Fri, 7 Nov 2003 18:28:28 +0000
Subject: [PATCH] fix &get_chars_unified().

---
 inCHISE |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/inCHISE b/inCHISE
index 0750906..59ea158 100755
--- 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/;
-- 
1.7.10.4