Add comments of ku-ten for 94x94-sets.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / ideograph-util.el

diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el
index 44c5f04..593e21c 100644 (file)
--- a/lisp/utf-2000/ideograph-util.el
+++ b/lisp/utf-2000/ideograph-util.el
@@ -468,24 +468,24 @@
               radical))
       (let ((ret (or (encode-char char 'ideograph-daikanwa 'defined-only)
                      (encode-char char '=daikanwa-rev2 'defined-only)
-                     (get-char-attribute char 'morohashi-daikanwa)
-                     (get-char-attribute char '=>daikanwa))))
+                     (get-char-attribute char 'morohashi-daikanwa))))
         (or ret
+           (and (setq ret (get-char-attribute char '=>daikanwa))
+                (if (numberp ret)
+                    (list ret 0)
+                  (append ret '(0))))
            (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))
-                   (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)))
@@ -500,12 +500,15 @@
                    (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))
-                   (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))))))))))