X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fchar-db-util.el;h=b9a9ea1e4a16667f4930d7307ce05f982c545869;hb=1275b579da580df1bcc444b2bd55d295fd29af97;hp=4878a2492afc49febbe58a20d93d33abf5ac562c;hpb=64f3b0f270f5be8a0285701612a1f9811cc69074;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 4878a24..b9a9ea1 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -1,7 +1,7 @@
 ;;; char-db-util.el --- Character Database utility -*- coding: utf-8-er; -*-
 
 ;; Copyright (C) 1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,
-;;   2008,2009,2010,2011,2012,2013,2014,2015,2016,2017 MORIOKA Tomohiko.
+;;   2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018 MORIOKA Tomohiko.
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: CHISE, Character Database, ISO/IEC 10646, UCS, Unicode, MULE.
@@ -268,7 +268,7 @@
     =>jis-x0213-2
     ==>ucs@bucs
     =>iwds-1
-    =>ucs@hanyo-denshi
+    ;; =>ucs@hanyo-denshi
     =>ucs@iso
     =>ucs@unicode
     =>ucs@jis
@@ -346,13 +346,16 @@
     =ucs-itaiji-007
     =ucs-itaiji-008
     =ucs-itaiji-009
+    =ucs-itaiji-010
     =ucs-itaiji-011
     =>ucs-itaiji-001
     =>ucs-itaiji-002
     =>ucs-itaiji-003
+    =>ucs-itaiji-004
     =>ucs-itaiji-005
     =>ucs-itaiji-006
     =>ucs-itaiji-007
+    =>ucs-itaiji-009
     =big5-cdp-var-001
     =big5-cdp-var-002
     =big5-cdp-var-003
@@ -363,8 +366,11 @@
     =big5-cdp-itaiji-003
     =>big5-cdp-itaiji-001
     =>ucs@iwds-1
+    =>ucs@cognate
     =>ucs@component
     ==ucs@gb
+    =ucs@gb
+    ==ucs-var-002
     =ucs@JP/hanazono))
 
 
@@ -469,7 +475,8 @@
 					 ;; =gt-k
 					 =jis-x0208@1997
 					 ))
-                                 (eq (charset-property ccs 'iso-ir) 177)
+				 (and (eq (charset-property ccs 'iso-ir) 177)
+				      (not (eq (charset-name ccs) '=ucs@big5)))
 				 ;; (string-match "=ucs@" (symbol-name ccs))
 				 )
 			     (setq ccs (charset-name ccs))