From: tomo <tomo>
Date: Mon, 16 Jun 2003 08:42:06 +0000 (+0000)
Subject: Add `=gt' features to `=gt-pj-*' characters.
X-Git-Tag: r21-4-11-chise-0_21-pre8^2~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=68b82fc0e949b68ebef8a696dcf4f6705d9f77d1;p=chise%2Fxemacs-chise.git.1

Add `=gt' features to `=gt-pj-*' characters.
---

diff --git a/lisp/utf-2000/maps-conf.el b/lisp/utf-2000/maps-conf.el
index 8a4ec69..2fcd9d3 100644
--- a/lisp/utf-2000/maps-conf.el
+++ b/lisp/utf-2000/maps-conf.el
@@ -49,3 +49,23 @@
       (when (setq chr (apply (function make-char) ret))
 	(put-char-attribute chr '=gt-k i)))
     (setq i (1+ i))))
+
+(let (gt)
+  (dolist (ccs '(=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))
+    (map-char-attribute
+     (lambda (c v)
+       (when (setq gt (encode-char c '=gt))
+	 (put-char-attribute c '=gt gt)
+	 (put-char-attribute (decode-char ccs v) '=gt gt))
+       nil)
+     ccs)))