From c8046397b8b18707a7329d3ff491c5329d167102 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Tue, 29 Jul 2014 19:54:25 +0900 Subject: [PATCH] =?utf8?q?(shuowen-radicals):=20Add=20=3F=E5=BD=A1,=20=3F=E5?= =?utf8?q?=BD=A3,=20=3F=E6=96=87,=20=3F=E9=AB=9F,=20=3F=E5=90=8E,=20=3F=E5=8F?= =?utf8?q?=B8,=20=3F=E5=8D=AE,=20=3F=E5=8D=A9,=20=3F=E5=8D=B0=20and=20=3F=E8?= =?utf8?q?=89=B2.=20(char-db-coded-charset-priority-list):=20Add=20`=3D=3Dcn?= =?utf8?q?s11643-{4..7}',=20`=3D=3Dbig5-cdp'=20and=20`=3D=3Dcbeta'.=20(char-?= =?utf8?q?db-insert-ccs-feature):=20Support=20`=3D=3D=3Ddaikanwa/ho',=20`=3D?= =?utf8?q?=3D=3Ddaikanwa',=20`=3D=3D=3Dgt',=20`=3D=3D=3Dgt-k',=20`=3D=3D=3Da?= =?utf8?q?dobe-japan1-{0..6}',=20`=3D=3Dcbeta',=20`=3D=3D=3Dcbeta',=20`=3D=3D?= =?utf8?q?=3Dhanyo-denshi/ks'=20and=20`=3D=3D=3Dmj'.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- lisp/utf-2000/char-db-util.el | 41 ++++++++++++++++++++++++++--------------- 1 file changed, 26 insertions(+), 15 deletions(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index f01347c..9a71a9a 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -98,6 +98,7 @@ ?裘 ?老 ?毛 ?毳 ?尸 ?尺 ?尾 ?履 ?舟 ?方 ; 310 ?儿 ?兄 ?兂 ?皃 ?𠑹 ?先 ?秃 ?見 ?覞 ?欠 ; 320 ?㱃 ?㳄 ?旡 ?頁 ?𦣻 ?面 ?丏 ?首 ?𥄉 ?須 ; 330 + ?彡 ?彣 ?文 ?髟 ?后 ?司 ?卮 ?卩 ?印 ?色 ; 340 ]) (defun shuowen-radical (number) @@ -276,17 +277,26 @@ =>>>ucs@unicode ==ucs@iso ==ucs@unicode + ;; ==ucs@cns ==gb2312 ==ks-x1001 ==cns11643-1 ==cns11643-2 ==cns11643-3 + ==cns11643-4 + ==cns11643-5 + ==cns11643-6 + ==cns11643-7 ==gt ==jis-x0208@1990 + ;; ==jis-x0208@1983 + ;; ==jis-x0208@1978 ==gt-k =ucs@iso =ucs@unicode =ucs@cns + ==big5-cdp + ==cbeta =>>big5-cdp =>>gt-k =+>gt @@ -623,26 +633,27 @@ =shinjigen@1ed ==shinjigen@1ed =shinjigen@rev ==shinjigen@rev =shinjigen/+p@rev ==shinjigen/+p@rev - ==daikanwa/ho + ===daikanwa/ho ==daikanwa/ho =daikanwa/ho =>>daikanwa/ho =>daikanwa/ho)) "(%-18s . %04d)\t; %c") ((eq name '=shinjigen@1ed/24pr) "(%-18s . %04d)\t; %c") - ((or (memq name '(==daikanwa - =daikanwa =>>daikanwa =>daikanwa + ((or (memq name '(===daikanwa + ==daikanwa =daikanwa =>>daikanwa =>daikanwa =daikanwa@rev1 =daikanwa@rev2 =daikanwa/+p ==daikanwa/+p =>>daikanwa/+p =daikanwa/+2p =>>daikanwa/+2p - =gt ==gt ; =>>>gt + =gt ==gt ===gt =>>gt =+>gt =>gt - =gt-k ==gt-k =>>gt-k =>gt-k - =adobe-japan1-0 ==adobe-japan1-0 ; =>>>adobe-japan1-0 - =adobe-japan1-1 ==adobe-japan1-1 ; =>>>adobe-japan1-1 - =adobe-japan1-2 ==adobe-japan1-2 ; =>>>adobe-japan1-2 - =adobe-japan1-3 ==adobe-japan1-3 ; =>>>adobe-japan1-3 - =adobe-japan1-4 ==adobe-japan1-4 ; =>>>adobe-japan1-4 - =adobe-japan1-5 ==adobe-japan1-5 ; =>>>adobe-japan1-5 - =adobe-japan1-6 ==adobe-japan1-6 ; =>>>adobe-japan1-6 + =gt-k ==gt-k ===gt-k + =>>gt-k =>gt-k + =adobe-japan1-0 ==adobe-japan1-0 ===adobe-japan1-0 + =adobe-japan1-1 ==adobe-japan1-1 ===adobe-japan1-1 + =adobe-japan1-2 ==adobe-japan1-2 ===adobe-japan1-2 + =adobe-japan1-3 ==adobe-japan1-3 ===adobe-japan1-3 + =adobe-japan1-4 ==adobe-japan1-4 ===adobe-japan1-4 + =adobe-japan1-5 ==adobe-japan1-5 ===adobe-japan1-5 + =adobe-japan1-6 ==adobe-japan1-6 ===adobe-japan1-6 =>>adobe-japan1-0 =+>adobe-japan1-0 =>>adobe-japan1-1 =+>adobe-japan1-1 =>>adobe-japan1-2 =+>adobe-japan1-2 @@ -650,16 +661,16 @@ =>>adobe-japan1-4 =+>adobe-japan1-4 =>>adobe-japan1-5 =+>adobe-japan1-5 =>>adobe-japan1-6 =+>adobe-japan1-6 - =cbeta =>>cbeta + =cbeta ==cbeta ===cbeta =>>cbeta =zinbun-oracle =>zinbun-oracle)) ;; (string-match "^=adobe-" (symbol-name name)) ) "(%-18s . %05d)\t; %c") ((memq name '(=hanyo-denshi/ks - ==hanyo-denshi/ks ; =>>>hanyo-denshi/ks + ==hanyo-denshi/ks ===hanyo-denshi/ks =>>hanyo-denshi/ks =koseki - =mj ==mj =>>mj + =mj ==mj ===mj =>>mj =zihai mojikyo)) "(%-18s . %06d)\t; %c") ((>= (charset-dimension name) 2) -- 1.7.10.4