From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 3 Mar 2015 10:09:24 +0000 (+0900)
Subject: Add code to set `(=ucs@JP/hanazono . nil)' into each `=ucs@unicode'
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=42fff9b12a08e77159ab84a76a3061114c2a8962;p=chise%2Fxemacs-chise.git-

Add code to set `(=ucs@JP/hanazono . nil)' into each `=ucs@unicode'
object differ from `=ucs@JP' object.
---

diff --git a/lisp/utf-2000/maps-conf.el b/lisp/utf-2000/maps-conf.el
index 1a23726..3737c99 100644
--- a/lisp/utf-2000/maps-conf.el
+++ b/lisp/utf-2000/maps-conf.el
@@ -275,3 +275,20 @@
    '==hanyo-denshi/jd)
   )
 
+(let (j-chr)
+  (map-char-attribute
+   (lambda (c v)
+     (if (and (setq j-chr (decode-char '=ucs@JP v))
+	      (not (eq j-chr c))
+	      (null (encode-char c '=ucs)))
+	 (put-char-attribute c '=ucs@JP/hanazono nil))
+     nil)
+   '=ucs@unicode)
+  (map-char-attribute
+   (lambda (c v)
+     (if (and (setq j-chr (decode-char '==ucs@JP v))
+	      (not (eq j-chr c)))
+	 (put-char-attribute c '==ucs@JP/hanazono nil))
+     nil)
+   '==ucs@unicode)
+  )