(jp-jouyou-read-file): Check inherited value of

`<-simplified@JP/Jouyou'.

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