projects
/
chise
/
xemacs-chise.git.1
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0a3d471
)
(char-daikanwa): Prefer children to parents.
author
tomo
<tomo>
Tue, 13 Apr 2004 06:59:00 +0000
(06:59 +0000)
committer
tomo
<tomo>
Tue, 13 Apr 2004 06:59:00 +0000
(06:59 +0000)
lisp/utf-2000/ideograph-util.el
patch
|
blob
|
history
diff --git
a/lisp/utf-2000/ideograph-util.el
b/lisp/utf-2000/ideograph-util.el
index
44c5f04
..
2fc4402
100644
(file)
--- a/
lisp/utf-2000/ideograph-util.el
+++ b/
lisp/utf-2000/ideograph-util.el
@@
-474,18
+474,15
@@
(unless (memq char checked)
(catch 'tag
(let ((rest
(unless (memq char checked)
(catch 'tag
(let ((rest
- (append (get-char-attribute char '<-subsumptive)
- (get-char-attribute char '<-denotational)))
+ (append (get-char-attribute char '->subsumptive)
+ (get-char-attribute char '->denotational)))
(i 0)
sc)
(setq checked (cons char checked))
(while rest
(setq sc (car rest))
(i 0)
sc)
(setq checked (cons char checked))
(while rest
(setq sc (car rest))
- (when (setq ret (char-daikanwa sc radical checked))
- (throw 'tag
- (if (numberp ret)
- (list ret 0 i)
- (append ret (list i)))))
+ (if (setq ret (char-daikanwa sc radical checked))
+ (throw 'tag ret))
(setq checked (cons sc checked)
rest (cdr rest)
i (1+ i)))
(setq checked (cons sc checked)
rest (cdr rest)
i (1+ i)))
@@
-500,12
+497,15
@@
(setq checked (cons sc checked)
rest (cdr rest)))
(setq rest
(setq checked (cons sc checked)
rest (cdr rest)))
(setq rest
- (append (get-char-attribute char '->subsumptive)
- (get-char-attribute char '->denotational)))
+ (append (get-char-attribute char '<-subsumptive)
+ (get-char-attribute char '<-denotational)))
(while rest
(setq sc (car rest))
(while rest
(setq sc (car rest))
- (if (setq ret (char-daikanwa sc radical checked))
- (throw 'tag ret))
+ (when (setq ret (char-daikanwa sc radical checked))
+ (throw 'tag
+ (if (numberp ret)
+ (list ret 0 i)
+ (append ret (list i)))))
(setq checked (cons sc checked)
rest (cdr rest))))))))))
(setq checked (cons sc checked)
rest (cdr rest))))))))))