X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fread-maps.el;h=c90c4151db7495a6a1089e81ed8a81c3652244c4;hb=e95a3c63cc393e786528a0e1e55dd382bf3a24c6;hp=842cac1c13f9ba3cbdead1cd2d72296cbe8a6f0a;hpb=a535ad5f0ef237bb42a0517d2762966ccb6959fe;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/read-maps.el b/lisp/utf-2000/read-maps.el
index 842cac1..c90c415 100644
--- a/lisp/utf-2000/read-maps.el
+++ b/lisp/utf-2000/read-maps.el
@@ -1,6 +1,6 @@
 ;;; read-maps.el --- Read mapping-tables.
 
-;; Copyright (C) 2002,2003,2004 MORIOKA Tomohiko
+;; Copyright (C) 2002,2003,2004,2005 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: mapping table, character, CCS, multiscript, multilingual
@@ -69,6 +69,10 @@
      "^B-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)" 1 16
      =ucs@big5
      "\tBU[+-]\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]+\\)")
+    (=ks-x1001
+     "^K0-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)" 1 16
+     =ucs@ks
+     "\tKU[+-]\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]+\\)")
     (=jef-china3     
      "^JC3-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)" 1 16
      nil
@@ -149,7 +153,13 @@ UCS-REGEXP is a regular expression to match against
 			     (encode-char chr '=ucs@jis/fw 'defined-only))
 			    ((eq ucs-ccs '=ucs@gb)
 			     (encode-char chr '=ucs@gb/fw 'defined-only))
-			    (t
+                            ;; ((eq ucs-ccs '=ucs@cns)
+                            ;;  (encode-char chr '=ucs@cns/fw 'defined-only))
+                            ;; ((eq ucs-ccs '=ucs@big5)
+                            ;;  nil)
+                            ;; ((eq ucs-ccs '=ucs@ks)
+                            ;;  (encode-char chr '=ucs@ks/fw 'defined-only))
+                            (t
 			     (char-feature chr '=>ucs))))
 			  ucs-code)))
 	    (put-char-attribute chr ucs-ccs ucs-code))
@@ -159,7 +169,9 @@ UCS-REGEXP is a regular expression to match against
 							    =ucs@jis/1990
                                                             =ucs@jis/2000
 							    =ucs@gb
+							    =ucs@cns
 							    =ucs@big5
+							    =ucs@ks
 							    )))
 				       (char-feature chr '=>ucs)))
 			      ucs)))