(char-attribute-name<): Prefer official CCSs; ignore

charset-dimensions of private CCSs.

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index c0f42b8..311ac8c 100644 (file)
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -79,14 +79,18 @@
    ((find-charset ka)
     (cond
      ((find-charset kb)
-      (cond
-       ((= (charset-dimension ka)
-          (charset-dimension kb))
-       (< (charset-id ka)(charset-id kb)))
-       (t
-       (> (charset-dimension ka)
-          (charset-dimension kb))
-       )))
+      (if (< (charset-id ka) 0)
+         (if (< (charset-id kb) 0)
+             (cond
+              ((= (charset-dimension ka)
+                  (charset-dimension kb))
+               (< (charset-id ka)(charset-id kb)))
+              (t
+               (> (charset-dimension ka)
+                  (charset-dimension kb))
+               ))
+           t)
+       (< (charset-id ka)(charset-id kb))))
      ((symbolp kb)
       nil)
      (t