From: tomo <tomo>
Date: Fri, 16 Nov 2001 08:24:00 +0000 (+0000)
Subject: (ideographic-radicals): Now `charset-iso-final-char' returns nil
X-Git-Tag: r21-2-43-utf-2000-0_18-1~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a698512d30a0ca29c231020f7831105640edadb5;p=chise%2Fxemacs-chise.git.1

(ideographic-radicals): Now `charset-iso-final-char' returns nil
instead of ?\x00 if a coded-charset does not have a final-byte of
ISO/IEC 2022.
(char-attribute-name<): Likewise.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 95ea201..2eeb053 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -67,8 +67,8 @@
     (while (< i 215)
       (aset v i (int-char (+ #x2EFF i)))
       (setq i (1+ i)))
-    (if (< (charset-iso-final-char (car (split-char (aref v 34)))) ?0)
-	(aset v 34 (make-char 'chinese-gb2312 #x62 #x3A)))
+    (unless (charset-iso-final-char (car (split-char (aref v 34))))
+      (aset v 34 (make-char 'chinese-gb2312 #x62 #x3A)))
     v))
 
 ;;;###autoload
@@ -108,23 +108,24 @@
        ((= (charset-dimension ka)
 	   (charset-dimension kb))
 	(cond ((= (charset-chars ka)(charset-chars kb))
-	       (cond
-		((>= (charset-iso-final-char ka) ?@)
-		 (if (>= (charset-iso-final-char kb) ?@)
-		     (< (charset-iso-final-char ka)
-			(charset-iso-final-char kb))
-		   t))
-		((>= (charset-iso-final-char ka) ?0)
-		 (cond
-		  ((>= (charset-iso-final-char kb) ?@)
-		   nil)
-		  ((>= (charset-iso-final-char kb) ?0)
-		   (< (charset-iso-final-char ka)
-		      (charset-iso-final-char kb)))
-		  (t)))
-		(t (if (>= (charset-iso-final-char kb) ?0)
-		       nil
-		     (> (charset-id ka)(charset-id 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)