+ (cond ((setq ret (find-charset name))
+ (setq name (charset-name ret))
+ (if (and (not (memq name dest-ccss))
+ (prog1
+ (setq value (get-char-attribute char name))
+ (setq dest-ccss (cons name dest-ccss))))
+ (char-db-insert-ccs-feature name value line-breaking)
+ ;; (insert
+ ;; (format
+ ;; (cond ((memq name '(=daikanwa
+ ;; =daikanwa-rev1 =daikanwa-rev2
+ ;; =gt =gt-k =cbeta))
+ ;; (if has-long-ccs-name
+ ;; "(%-26s . %05d)\t; %c%s"
+ ;; "(%-18s . %05d)\t; %c%s"))
+ ;; ((eq name 'mojikyo)
+ ;; (if has-long-ccs-name
+ ;; "(%-26s . %06d)\t; %c%s"
+ ;; "(%-18s . %06d)\t; %c%s"))
+ ;; ((>= (charset-dimension name) 2)
+ ;; (if has-long-ccs-name
+ ;; "(%-26s . #x%04X)\t; %c%s"
+ ;; "(%-18s . #x%04X)\t; %c%s"))
+ ;; (t
+ ;; (if has-long-ccs-name
+ ;; "(%-26s . #x%02X)\t; %c%s"
+ ;; "(%-18s . #x%02X)\t; %c%s")))
+ ;; name
+ ;; (if (= (charset-iso-graphic-plane name) 1)
+ ;; (logior value
+ ;; (cond ((= (charset-dimension name) 1)
+ ;; #x80)
+ ;; ((= (charset-dimension name) 2)
+ ;; #x8080)
+ ;; ((= (charset-dimension name) 3)
+ ;; #x808080)
+ ;; (t 0)))
+ ;; value)
+ ;; (char-db-decode-isolated-char name value)
+ ;; line-breaking))
+ )
+ )
+ ((string-match "^=>ucs@" (symbol-name name))