;;; 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 MORIOKA Tomohiko.
+;; 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014 MORIOKA Tomohiko.
;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
;; Keywords: CHISE, Character Database, ISO/IEC 10646, UCS, Unicode, MULE.
cyrillic-iso8859-5
greek-iso8859-7
thai-tis620
- =adobe-japan1-0
- =adobe-japan1-1
- =adobe-japan1-2
- =adobe-japan1-3
- =adobe-japan1-4
- =adobe-japan1-5
- =adobe-japan1-6
+ ;; =mj
+ ;; =adobe-japan1-0
+ ;; =adobe-japan1-1
+ ;; =adobe-japan1-2
+ ;; =adobe-japan1-3
+ ;; =adobe-japan1-4
+ ;; =adobe-japan1-5
+ ;; =adobe-japan1-6
=jis-x0208
=jis-x0208@1978
=jis-x0208@1983
=hanyo-denshi/hg
=hanyo-denshi/jt
=hanyo-denshi/ks
- =gt
- =gt-k
- ==adobe-japan1-0
- ==adobe-japan1-1
- ==adobe-japan1-2
- ==adobe-japan1-3
- ==adobe-japan1-4
- ==adobe-japan1-5
- ==adobe-japan1-6
+ ;; ==mj
+ ;; ==adobe-japan1-0
+ ;; ==adobe-japan1-1
+ ;; ==adobe-japan1-2
+ ;; ==adobe-japan1-3
+ ;; ==adobe-japan1-4
+ ;; ==adobe-japan1-5
+ ;; ==adobe-japan1-6
==jis-x0208
==jis-x0213-1
==jis-x0213-2
==hanyo-denshi/hg
==hanyo-denshi/jt
==hanyo-denshi/ks
+ =gt
+ =gt-k
=daikanwa
=daikanwa@rev2
=daikanwa@rev1
=>jis-x0213-1@2004
=>jis-x0213-2
==>ucs@bucs
+ =>ucs@hanyo-denshi
=>ucs@iso
=>ucs@unicode
=>ucs@jis
(setq char-spec (cons (cons 'name* ret) char-spec))
))
)
+ ((encode-char char '=mj 'defined-only)
+ (setq char-spec nil)
+ (dolist (ccs (charset-list))
+ (if (and (or (eq ccs '=mj)
+ ;; (eq (charset-property ccs 'iso-ir) 177)
+ (string-match "=ucs@" (symbol-name ccs))
+ )
+ (setq ccs (charset-name ccs))
+ (null (assq ccs char-spec))
+ (setq ret (encode-char char ccs 'defined-only)))
+ (setq char-spec (cons (cons ccs ret) char-spec))))
+ )
+ ((encode-char char '==mj 'defined-only)
+ (setq char-spec nil)
+ (dolist (ccs (charset-list))
+ (if (and (or (eq ccs '==mj)
+ ;; (eq (charset-property ccs 'iso-ir) 177)
+ (string-match "=ucs@" (symbol-name ccs))
+ )
+ (setq ccs (charset-name ccs))
+ (null (assq ccs char-spec))
+ (setq ret (encode-char char ccs 'defined-only)))
+ (setq char-spec (cons (cons ccs ret) char-spec))))
+ )
((encode-char char '=adobe-japan1 'defined-only)
(setq char-spec nil)
(dolist (ccs (charset-list))
(cond
((memq name '(==shinjigen
=shinjigen
- =shinjigen@1ed
+ =shinjigen@1ed ==shinjigen@1ed
=shinjigen@rev ==shinjigen@rev
- =shinjigen/+p@rev
+ =shinjigen/+p@rev ==shinjigen/+p@rev
==daikanwa/ho
=daikanwa/ho =>>daikanwa/ho =>daikanwa/ho))
"(%-18s . %04d)\t; %c")
((memq name '(=hanyo-denshi/ks
==hanyo-denshi/ks ; =>>>hanyo-denshi/ks
=>>hanyo-denshi/ks
+ =koseki
+ =mj ==mj =>>mj
=zihai mojikyo))
"(%-18s . %06d)\t; %c")
((>= (charset-dimension name) 2)