From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 19 Feb 2015 05:07:08 +0000 (+0900)
Subject: - Add code to add `===hanyo-denshi/jc' to `===jis-x0213-1@2000'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=383a8225321d3d9587a31595eabc9fbc701aa439;p=chise%2Fxemacs-chise.git-

- Add code to add `===hanyo-denshi/jc' to `===jis-x0213-1@2000'.
- Add code to add `===hanyo-denshi/jd' to `===jis-x0213-2'.
---

diff --git a/lisp/utf-2000/maps-conf.el b/lisp/utf-2000/maps-conf.el
index 556ff20..1a23726 100644
--- a/lisp/utf-2000/maps-conf.el
+++ b/lisp/utf-2000/maps-conf.el
@@ -257,3 +257,21 @@
      (put-char-attribute c '=>jis-x0213-1 v))
    nil)
  '=>jis-x0208)
+
+(let (dg-chr)
+  (map-char-attribute
+   (lambda (c v)
+     (when (setq dg-chr (decode-char '===jis-x0213-1@2000 v))
+       (unless (eq c dg-chr)
+	 (put-char-attribute dg-chr '===hanyo-denshi/jc v)))
+     nil)
+   '==hanyo-denshi/jc)
+  (map-char-attribute
+   (lambda (c v)
+     (when (setq dg-chr (decode-char '===jis-x0213-2 v))
+       (unless (eq c dg-chr)
+	 (put-char-attribute dg-chr '===hanyo-denshi/jd v)))
+     nil)
+   '==hanyo-denshi/jd)
+  )
+