From 6bc12da9ed3ad7e06c1140bad64f297b2c4d737c Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 9 Feb 2004 11:33:00 +0000 Subject: [PATCH] (jp-jouyou-read-file): Check inherited value of `<-simplified@JP/Jouyou'. --- lisp/utf-2000/read-maps.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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 -- 1.7.10.4