+ return $char;
+ }
+}
+
+sub get_chars_unified{
+ my($char)=@_;
+ my($chars,$ucs,$char_ucs);
+ my(@chars);
+
+ if($chars=&get_char_attribute($char,'->ucs-unified')){
+ $chars=~s/^\((.*)\)$/$1/;
+ return (split(/\s*\?/,$chars));
+ }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/;
+ @chars=grep {not /^$char$/}
+ (split(/\s*\?/,$chars));
+ push(@chars,$char_ucs);
+ return @chars;
+ }