'(> > > >))))
(defun insert-ideograph-radical-char-data (radical)
- (let* ((ideographic-radical radical)
- (chars
- (sort (copy-list (aref ideograph-radical-chars-vector radical))
- (function ideograph-char<)))
- attributes ccss)
+ (let ((chars
+ (sort (copy-list (aref ideograph-radical-chars-vector radical))
+ (lambda (a b)
+ (ideograph-char< a b radical))))
+ attributes ccss)
(dolist (name (char-attribute-list))
(unless (memq name char-db-ignored-attributes)
(if (find-charset name)
(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)))))