Add glyph-images of HNG-KHI.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / char-db-util.el

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 38625c8..3ea5cab 100644 (file)
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -311,6 +311,7 @@
     =>big5-cdp
     =>daikanwa
     =>daikanwa/ho
+    =>cns11643-5
     =>cns11643-7
     =big5
     =big5-eten
@@ -652,41 +653,55 @@
        "(%-18s .  %04d)\t; %c")
        ((eq name '=shinjigen@1ed/24pr)
        "(%-18s . %04d)\t; %c")
-       ((or (memq name '(===daikanwa
-                        ==daikanwa =daikanwa =>>daikanwa =>daikanwa
-                        =daikanwa@rev1 =daikanwa@rev2
-                        =daikanwa/+p ==daikanwa/+p ===daikanwa/+p
-                        =>>daikanwa/+p
-                        =daikanwa/+2p =>>daikanwa/+2p
-                        =gt ==gt ===gt
-                        =>>gt =+>gt =>gt
-                        =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
-                        =>>adobe-japan1-3 =+>adobe-japan1-3
-                        =>>adobe-japan1-4 =+>adobe-japan1-4
-                        =>>adobe-japan1-5 =+>adobe-japan1-5
-                        =>>adobe-japan1-6 =+>adobe-japan1-6
-                        =>cbeta =cbeta =>>cbeta ==cbeta ===cbeta
-                        =zinbun-oracle =>zinbun-oracle
-                        ===hng-khi ===hng-khm ===hng-kak
-                        ===hng-sys ===hng-tsu ===hng-hod))
-            ;; (string-match "^=adobe-" (symbol-name name))
-           )
+       ((or
+        (memq name
+              '(===daikanwa
+                ==daikanwa =daikanwa =>>daikanwa =>daikanwa
+                =daikanwa@rev1 =daikanwa@rev2
+                =daikanwa/+p ==daikanwa/+p ===daikanwa/+p
+                =>>daikanwa/+p
+                =daikanwa/+2p =>>daikanwa/+2p
+                =gt ==gt ===gt
+                =>>gt =+>gt =>gt
+                =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
+                =>>adobe-japan1-3 =+>adobe-japan1-3
+                =>>adobe-japan1-4 =+>adobe-japan1-4
+                =>>adobe-japan1-5 =+>adobe-japan1-5
+                =>>adobe-japan1-6 =+>adobe-japan1-6
+                =>cbeta =cbeta =>>cbeta ==cbeta ===cbeta
+                =zinbun-oracle =>zinbun-oracle
+                ===hng-jou ===hng-keg ===hng-dng ===hng-mam
+                ===hng-drt ===hng-kgk ===hng-myz ===hng-kda
+                ===hng-khi ===hng-khm ===hng-hok ===hng-kyd ===hng-sok
+                ===hng-yhk ===hng-kak ===hng-kar ===hng-kae
+                ===hng-sys ===hng-tsu ===hng-tzj
+                ===hng-hos ===hng-nak ===hng-jhk
+                ===hng-hod ===hng-gok ===hng-ink ===hng-nto
+                ===hng-nkm ===hng-k24 ===hng-nkk
+                ===hng-kcc ===hng-kcj ===hng-kbk ===hng-sik
+                ===hng-skk ===hng-kyu ===hng-ksk ===hng-wan
+                ===hng-okd ===hng-wad ===hng-kmi
+                ===hng-zkd ===hng-doh ===hng-jyu
+                ===hng-tzs ===hng-kss ===hng-kyo
+                ===hng-smk))
+        ;; (string-match "^=adobe-" (symbol-name name))
+        )
        "(%-18s . %05d)\t; %c")
        ((memq name '(=hanyo-denshi/ks
                     ==hanyo-denshi/ks ===hanyo-denshi/ks
                     =>>hanyo-denshi/ks
-                    =koseki
+                    =koseki ==koseki
                     =mj ==mj ===mj =>>mj
                     =zihai mojikyo))
        "(%-18s . %06d)\t; %c")