"^JX2-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)" 1 16
=ucs@jis/2000
"\tJU[+-]\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]+\\)")
+ (=gb2312
+ "^G0-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)" 1 16
+ =ucs@gb
+ "\tGU[+-]\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]+\\)")
(=cns11643-1
"^C1-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)" 1 16
=ucs@cns
(put-char-attribute chr ccs code))
(when (and ucs-code
(not
- (eq (or (encode-char chr ucs-ccs 'defined-only)
- (if (memq ucs-ccs '(=ucs@jis
- =ucs@jis/1990
- =ucs@jis/2000
- ;; ucs-big5
- ))
- (encode-char chr '=ucs@jis/fw
- 'defined-only)
- (char-feature chr '=>ucs)))
+ (eq (or
+ (encode-char chr ucs-ccs 'defined-only)
+ (cond
+ ((memq ucs-ccs '(=ucs@jis
+ =ucs@jis/1990
+ =ucs@jis/2000))
+ (encode-char chr '=ucs@jis/fw 'defined-only))
+ ((eq ucs-ccs '=ucs@gb)
+ (encode-char chr '=ucs@gb/fw 'defined-only))
+ (t
+ (char-feature chr '=>ucs))))
ucs-code)))
(put-char-attribute chr ucs-ccs ucs-code))
(when (and ucs
(and (not (memq ucs-ccs '(=ucs@jis
=ucs@jis/1990
=ucs@jis/2000
+ =ucs@gb
;; ucs-big5
)))
(char-feature chr '=>ucs)))