;;; 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.
=>jis-x0213-2
==>ucs@bucs
=>iwds-1
- =>ucs@hanyo-denshi
+ ;; =>ucs@hanyo-denshi
=>ucs@iso
=>ucs@unicode
=>ucs@jis
=>>big5-cdp
=>>gt-k
=+>gt
+ =+>big5-cdp
=>gt
=>mj
=>big5-cdp
=ucs-itaiji-004
=ucs-itaiji-005
=ucs-itaiji-006
+ =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
=big5-cdp-var-004
=big5-cdp-var-005
+ =big5-cdp-var-010
=big5-cdp-itaiji-001
=big5-cdp-itaiji-002
=big5-cdp-itaiji-003
=>big5-cdp-itaiji-001
=>ucs@iwds-1
+ =>ucs@cognate
=>ucs@component
+ =>ucs-itaiji-001@iwds-1
+ =>big5-cdp@iwds-1
+ =>big5-cdp@component
+ =>big5-cdp@cognate
==ucs@gb
+ =ucs@gb
+ ==ucs-var-002
=ucs@JP/hanazono))
;; =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))