From a535ad5f0ef237bb42a0517d2762966ccb6959fe Mon Sep 17 00:00:00 2001 From: tomo Date: Sat, 26 Mar 2005 06:22:55 +0000 Subject: [PATCH] (mapping-table-ccs-setting-alist): Add setting for CNS 11643-5. --- lisp/utf-2000/read-maps.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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))) -- 1.7.10.4