From: tomo <tomo>
Date: Thu, 6 Mar 2003 09:04:43 +0000 (+0000)
Subject: Unify `=gt-pj-1' code points into JIS X 0208:1990 code points.
X-Git-Tag: r21-4-10-utf-2000-0_20-12~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8a40cb4e00d1c2dad1a8bf172f935f27e4d7ebb6;p=chise%2Fxemacs-chise.git-

Unify `=gt-pj-1' code points into JIS X 0208:1990 code points.
---

diff --git a/lisp/utf-2000/maps-conf.el b/lisp/utf-2000/maps-conf.el
index f924b37..8a4ec69 100644
--- a/lisp/utf-2000/maps-conf.el
+++ b/lisp/utf-2000/maps-conf.el
@@ -19,26 +19,33 @@
     (setq ucs (1+ ucs))))
 
 
-;; (let ((default-coded-charset-priority-list
-;;         '(ideograph-gt-pj-1
-;;           ideograph-gt-pj-2
-;;           ideograph-gt-pj-3
-;;           ideograph-gt-pj-4
-;;           ideograph-gt-pj-5
-;;           ideograph-gt-pj-6
-;;           ideograph-gt-pj-7
-;;           ideograph-gt-pj-8
-;;           ideograph-gt-pj-9
-;;           ideograph-gt-pj-10
-;;           ideograph-gt-pj-11
-;;           ideograph-gt-pj-k1
-;;           ideograph-gt-pj-k2))
-;;       (i 1)
-;;       chr ret)
-;;   (while (<= i 12000)
-;;     (when (and (setq ret (decode-char 'ideograph-gt-k i))
-;;                (setq ret (split-char ret))
-;;                (memq (car ret) default-coded-charset-priority-list))
-;;       (when (setq chr (apply (function make-char) ret))
-;;         (put-char-attribute chr 'ideograph-gt-k i)))
-;;     (setq i (1+ i))))
+(map-char-attribute
+ (lambda (c v)
+   (put-char-attribute (decode-char 'japanese-jisx0208-1990 v)
+		       '=gt-pj-1 v)
+   nil)
+ '=gt-pj-1)
+
+(let ((default-coded-charset-priority-list
+	'(=gt-pj-1
+	  =gt-pj-2
+	  =gt-pj-3
+	  =gt-pj-4
+	  =gt-pj-5
+	  =gt-pj-6
+	  =gt-pj-7
+	  =gt-pj-8
+	  =gt-pj-9
+	  =gt-pj-10
+	  =gt-pj-11
+	  =gt-pj-k1
+	  =gt-pj-k2))
+      (i 1)
+      chr ret)
+  (while (<= i 12000)
+    (when (and (setq ret (decode-char '=gt-k i))
+	       (setq ret (split-char ret))
+	       (memq (car ret) default-coded-charset-priority-list))
+      (when (setq chr (apply (function make-char) ret))
+	(put-char-attribute chr '=gt-k i)))
+    (setq i (1+ i))))