From: tomo <tomo>
Date: Sat, 26 Mar 2005 06:22:55 +0000 (+0000)
Subject: (mapping-table-ccs-setting-alist): Add setting for CNS 11643-5.
X-Git-Tag: r21-4-15-chise-0_22^2~290
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=commitdiff_plain;h=a535ad5f0ef237bb42a0517d2762966ccb6959fe

(mapping-table-ccs-setting-alist): Add setting for CNS 11643-5.
---

diff --git a/lisp/utf-2000/read-maps.el b/lisp/utf-2000/read-maps.el
index 7ae6976..842cac1 100644
--- a/lisp/utf-2000/read-maps.el
+++ b/lisp/utf-2000/read-maps.el
@@ -57,10 +57,14 @@
      "^C3-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)" 1 16
      =ucs@cns
      "\tCU[+-]\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]+\\)")
-    (=cns11643-4     
+    (=cns11643-4
      "^C4-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)" 1 16
      =ucs@cns
      "\tCU[+-]\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]+\\)")
+    (=cns11643-5
+     "^C5-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)" 1 16
+     =ucs@cns
+     "\tCU[+-]\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]+\\)")
     (=big5     
      "^B-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)" 1 16
      =ucs@big5
@@ -155,7 +159,7 @@ UCS-REGEXP is a regular expression to match against
 							    =ucs@jis/1990
                                                             =ucs@jis/2000
 							    =ucs@gb
-							    ;; ucs-big5
+							    =ucs@big5
 							    )))
 				       (char-feature chr '=>ucs)))
 			      ucs)))