(GT-39643): Unify <CJK RADICAL GRASS TWO> instead of U+FA5E; add

[chise/xemacs-chise.git] / lisp / utf-2000 / read-maps.el

diff --git a/lisp/utf-2000/read-maps.el b/lisp/utf-2000/read-maps.el
index a72c161..54f27e4 100644 (file)
--- a/lisp/utf-2000/read-maps.el
+++ b/lisp/utf-2000/read-maps.el
@@ -161,9 +161,11 @@
                (mapcar (lambda (c)
                          (aref c 0))
                        (split-string tchars " ")))
-         (put-char-attribute char
-                             '<-simplified@JP/Jouyou
-                             tchars))
+         (unless (equal (char-feature char '<-simplified@JP/Jouyou)
+                        tchars)
+           (put-char-attribute char
+                               '<-simplified@JP/Jouyou
+                               tchars)))
         ;; (put-char-attribute
         ;;  char 'script (adjoin
         ;;                'JP