From 535bc17bc56f1c40eeeb6d8d7c282a7b31509d7b Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 12 Apr 2004 05:55:37 +0000 Subject: [PATCH] (jp-jouyou-read-file): Check `<-simplified' and `<-simplified*sources'. --- lisp/utf-2000/read-maps.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/utf-2000/read-maps.el b/lisp/utf-2000/read-maps.el index 54f27e4..43f27f8 100644 --- a/lisp/utf-2000/read-maps.el +++ b/lisp/utf-2000/read-maps.el @@ -161,8 +161,12 @@ (mapcar (lambda (c) (aref c 0)) (split-string tchars " "))) - (unless (equal (char-feature char '<-simplified@JP/Jouyou) - tchars) + (unless (or (equal (char-feature char '<-simplified@JP/Jouyou) + tchars) + (and (equal (char-feature char '<-simplified) + tchars) + (memq 'JP/Jouyou + (char-feature char '<-simplified*sources)))) (put-char-attribute char '<-simplified@JP/Jouyou tchars))) -- 1.7.10.4