(U+52DC): Use `->denotational' instead of `->subsumptive'.

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

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 011af20..17049aa 100644 (file)
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -96,6 +96,17 @@
     nil)
    ((eq '->subsumptive ka)
     nil)
+   ((and (symbolp ka)
+        (string-match "^->" (symbol-name ka)))
+    (cond ((and (symbolp kb)
+               (string-match "^->" (symbol-name kb)))
+          (string< (symbol-name ka)
+                   (symbol-name kb))
+          ))
+    )
+   ((and (symbolp kb)
+        (string-match "^->" (symbol-name kb)))
+    t)
    ((find-charset ka)
     (if (find-charset kb)
        (if (<= (charset-id ka) 1)
@@ -566,7 +577,7 @@
                  #'char-attribute-name<)))
     (insert "(")
     (when (memq '<-subsumptive attributes)
-      (unless readable
+      (when readable
        (when (setq value (get-char-attribute char '<-subsumptive))
          (char-db-insert-relation-feature char '<-subsumptive value
                                           line-breaking
@@ -1011,6 +1022,7 @@
                             (intern (format "%s*sources" name))))
                      (not (string-match "\\*sources$" (symbol-name name)))
                      (or (eq name '<-identical)
+                         (eq name '<-canonical)
                          (eq name '->superscript)
                          (eq name '->subscript)
                          (eq name '->circled)