;;; 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
=ucs-itaiji-007
=ucs-itaiji-008
=ucs-itaiji-009
+ =ucs-itaiji-010
=ucs-itaiji-011
=>ucs-itaiji-001
=>ucs-itaiji-002
=>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-itaiji-003
=>big5-cdp-itaiji-001
=>ucs@iwds-1
+ =>ucs@cognate
=>ucs@component
==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))