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 (file)
--- 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)
+  )