projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Sync up with r21-2-44-utf-2000-0_19-eten-n14.
[chise/xemacs-chise.git-]
/
lisp
/
utf-2000
/
ideograph-util.el
diff --git
a/lisp/utf-2000/ideograph-util.el
b/lisp/utf-2000/ideograph-util.el
index
423321e
..
7044aa9
100644
(file)
--- a/
lisp/utf-2000/ideograph-util.el
+++ b/
lisp/utf-2000/ideograph-util.el
@@
-252,11
+252,11
@@
'(> > > >))))
(defun insert-ideograph-radical-char-data (radical)
'(> > > >))))
(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)
(dolist (name (char-attribute-list))
(unless (memq name char-db-ignored-attributes)
(if (find-charset name)
@@
-267,7
+267,11
@@
(aset ideograph-radical-chars-vector radical chars)
(dolist (char chars)
(when (some (lambda (ccs)
(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)))))
ccss)
(insert-char-data char nil attributes ccss)))))