;; ((null b) t)
;; (t (< a b))))
+;;;###autoload
(defun char-representative-of-daikanwa (char)
(if (get-char-attribute char 'ideograph-daikanwa)
char
;;;###autoload
(defun char-ucs (char)
(or (get-char-attribute char 'ucs)
- (get-char-attribute char '=>ucs)
- (get-char-attribute char '->ucs)))
+ (get-char-attribute char '=>ucs)))
(defun char-id (char)
(logand (char-int char) #x3FFFFFFF))
(aset ideograph-radical-chars-vector radical chars)
(dolist (char chars)
(when (some (lambda (ccs)
- (encode-char char ccs))
+ (let ((code (encode-char char ccs)))
+ (and code
+ ;;(not (memq ccs char-db-ignored-attributes))
+ ;;(or (not (memq ccs '(ucs))
+ (and (<= 0 code)(<= code #x10FFFF)))))
ccss)
(insert-char-data char nil attributes ccss)))))
file))))
(with-temp-buffer
(insert-ideograph-radical-char-data radical)
- (char-db-update-comment)
(let ((coding-system-for-write 'utf-8))
(write-region (point-min)(point-max) file)
)))