#x353D #x4324 #x475B #x6E47 #x4371
#x3F5D #x6E49 #x4D6F #x3C72 #x3D37
#x6E4C #x3B44 #x734E #x5567 #x545A
- #x3071 #x332A #x516A #x476D #x3675))
+ #x3071 #x332A #x516A #x476D #x3675
+ #x5734 #x552D))
(put-char-attribute (decode-char 'japanese-jisx0208-1990 v)
'=gt-pj-1 v))
nil)
(put-char-attribute c '=jis-x0213-1 v))
nil)
ccs))
+
+(map-char-attribute
+ (lambda (c v)
+ (unless (eq (encode-char c '<=>jis-x0213-1) v)
+ (put-char-attribute c '<=>jis-x0213-1 v))
+ nil)
+ '<=>jis-x0208)