+ ucs-ccs '=ucs@jis-2000)
+ (goto-char (match-end 0))
+ )
+ ((looking-at "^C1-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)")
+ (setq ccs 'chinese-cns11643-1
+ code (string-to-int (match-string 1) 16)
+ ucs-pat "\tCU[+-]\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]+\\)"
+ ucs-ccs 'ucs-cns)
+ (goto-char (match-end 0))
+ )
+ ((looking-at "^C2-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)")
+ (setq ccs 'chinese-cns11643-2
+ code (string-to-int (match-string 1) 16)
+ ucs-pat "\tCU[+-]\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]+\\)"
+ ucs-ccs 'ucs-cns)