;; ((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))
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)
)))