X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Futf-2000%2Fchar-db-util.el;h=337800549529f496adae34ecac263bc952673e10;hb=4d3b0d2237d777f380e27e54ec24c04f675e2fde;hp=60a3fed2611575b511220ad944031488eb0f24c9;hpb=070ed34d2de9cd27c6bbc60392f8f5fc978bf902;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 60a3fed..3378005 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -70,7 +70,8 @@
     v))
 
 (defvar char-db-feature-domains
-  '(ucs daikanwa cns gt jis jis/alt jis/a jis/b))
+  '(ucs daikanwa cns gt jis jis/alt jis/a jis/b
+	jis-x0213 misc unknown))
 
 (defvar char-db-ignored-attributes nil)
 
@@ -79,33 +80,20 @@
    ((find-charset ka)
     (cond
      ((find-charset kb)
-      (cond
-       ((= (charset-dimension ka)
-	   (charset-dimension kb))
-	(cond ((= (charset-chars ka)(charset-chars kb))
-	       (if (charset-iso-final-char ka)
-		   (cond
-		    ((>= (charset-iso-final-char ka) ?@)
-		     (if (and (charset-iso-final-char kb)
-			      (>= (charset-iso-final-char kb) ?@))
-			 (< (charset-iso-final-char ka)
-			    (charset-iso-final-char kb))
-		       t))
-		    (t
-		     (if (charset-iso-final-char kb)
-			 (if (>= (charset-iso-final-char kb) ?@)
-			     nil
-			   (< (charset-iso-final-char ka)
-			      (charset-iso-final-char kb)))
-		       t)))
-		 (if (charset-iso-final-char kb)
-		     nil
-		   (< (charset-id ka)(charset-id kb)))))
-	      ((<= (charset-chars ka)(charset-chars 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)
+	(if (<= (charset-id kb) 0)
+	    nil
+	  (< (charset-id ka)(charset-id kb)))))
      ((symbolp kb)
       nil)
      (t
@@ -154,6 +142,7 @@
     chinese-gb12345
     latin-viscii
     ethiopic-ucs
+    =big5-cdp
     =gt
     ideograph-daikanwa-2
     ideograph-daikanwa
@@ -172,7 +161,6 @@
     ideograph-hanziku-12
     =big5
     =big5-eten
-    =big5-cdp
     =gt-k
     =jef-china3))
 
@@ -227,7 +215,7 @@
 (defun char-db-insert-char-spec (char &optional readable column)
   (unless column
     (setq column (current-column)))
-  (let (char-spec ret al cal key temp-char)
+  (let (char-spec al cal key temp-char)
     (setq char-spec (char-db-make-char-spec char))
     (unless (or (characterp char) ; char
 		(condition-case nil
@@ -1090,8 +1078,9 @@
 
 (defun write-char-range-data-to-file (min max file
 					  &optional script excluded-script)
-  (let ((coding-system-for-write 'utf-8))
+  (let ((coding-system-for-write 'utf-8-mcs))
     (with-temp-buffer
+      (insert ";; -*- coding: utf-8-mcs -*-\n")
       (insert-char-range-data min max script excluded-script)
       (write-region (point-min)(point-max) file))))