(char-feature chr '=>ucs)))
ucs)))
(if (or ucs-code (null ucs-ccs))
- (put-char-attribute chr '=>ucs ucs)
+ (unless (eq (char-feature chr '=>ucs) ucs)
+ (put-char-attribute chr '=>ucs ucs))
(unless (eq (encode-char chr ucs-ccs 'defined-only)
ucs)
(put-char-attribute chr ucs-ccs ucs)))))