projects / chise / xemacs-chise.git- / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 98bf305)
(jp-jouyou-read-file): Check inherited value of
authortomo <tomo>
Mon, 9 Feb 2004 11:33:00 +0000 (11:33 +0000)
committertomo <tomo>
Mon, 9 Feb 2004 11:33:00 +0000 (11:33 +0000)
`<-simplified@JP/Jouyou'.

lisp/utf-2000/read-maps.el patch | blob | history

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