From: tomo <tomo>
Date: Mon, 9 Feb 2004 11:33:00 +0000 (+0000)
Subject: (jp-jouyou-read-file): Check inherited value of
X-Git-Tag: r21-4-14-chise-0_21-23^2~38
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6bc12da9ed3ad7e06c1140bad64f297b2c4d737c;p=chise%2Fxemacs-chise.git

(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
--- 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