+
+ (when (and drep-ccs
+ (setq drep-chr (decode-char drep-ccs code))
+ (not (eq drep-chr chr)))
+ (unless (eq (encode-char drep-chr drep-ccs 'defined-only)
+ code)
+ (put-char-attribute drep-chr drep-ccs code))
+ (when (and ucs-code
+ (not (eq (encode-char drep-chr drep-ucs-ccs
+ 'defined-only)
+ ucs-code)))
+ (put-char-attribute drep-chr drep-ucs-ccs ucs-code))
+ (when (and ucs
+ (not (eq (and (not (memq drep-ucs-ccs '(==ucs@jis
+ ==ucs@jis/1990
+ ==ucs@jis/2000
+ ==ucs@gb
+ ==ucs@cns
+ ==ucs@ks)))
+ (or (char-feature drep-chr '=ucs)
+ (char-feature drep-chr '=>ucs))
+ )
+ ucs))
+ (not (eq (char-feature drep-chr '=>ucs*) ucs)))
+ (if (or ucs-code (null drep-ucs-ccs))
+ (unless (eq (or (char-feature drep-chr '=ucs)
+ (char-feature drep-chr '=>ucs))
+ ucs)
+ (put-char-attribute drep-chr '=>ucs ucs))
+ (unless (eq (encode-char drep-chr drep-ucs-ccs 'defined-only)
+ ucs)
+ (put-char-attribute drep-chr drep-ucs-ccs ucs)))))