X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fchar-db-util.el;h=4b557b791e8b1084ff4e55146d55febc7668d620;hb=d643edd71fe4ac0dc9bfffc8b7054cae7f61fb49;hp=dea1a1536fd0ad58980b1d6033c7e7d0f18f0ad5;hpb=3df3d6ac43d048f07264a45ce5f31b344b775f8f;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index dea1a15..4b557b7 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -156,40 +156,21 @@
    ((find-charset ka)
     (if (find-charset kb)
 	(let (a-ir b-ir)
-	  (if (and (setq a-ir (charset-property ka 'iso-ir))
-		   (if (= a-ir 177)
-		       (if (= (charset-id ka) -177)
-			   t
-			 (setq a-ir nil))
-		     t))
-	      (if (and (setq b-ir (charset-property kb 'iso-ir))
-		       (if (= b-ir 177)
-			   (if (= (charset-id kb) -177)
-			       t
-			     (setq b-ir nil))
-			 t))
+	  (if (setq a-ir (charset-property ka 'iso-ir))
+	      (if (setq b-ir (charset-property kb 'iso-ir))
 		  (cond
 		   ((= a-ir b-ir)
 		    (< (charset-id ka)(charset-id kb))
 		    )
-                   ;; ((= a-ir 177)
-                   ;;  t)
-                   ;; ((= b-ir 177)
-                   ;;  nil)
-		   ((= (charset-dimension ka)
-		       (charset-dimension kb))
-		    (< a-ir b-ir)
-		    )
-		   ((> (charset-dimension ka)
-		       (charset-dimension kb))
+		   ((= a-ir 177)
+		    t)
+		   ((= b-ir 177)
+		    nil)
+		   ((< a-ir
+		       b-ir)
 		    ))
 		t)
-	    (if (and (setq b-ir (charset-property kb 'iso-ir))
-		     (if (= b-ir 177)
-			 (if (= (charset-id kb) -177)
-			     t
-			   (setq b-ir nil))
-		       t))
+	    (if (charset-property kb 'iso-ir)
 		nil
 	      (< (charset-id ka)(charset-id kb)))))
       nil)
@@ -298,8 +279,7 @@
 					 ;; =gt-k
 					 =jis-x0208@1997
 					 ))
-                                 ;; (string-match "=ucs@" (symbol-name ccs))
-				 )
+				 (string-match "=ucs@" (symbol-name ccs)))
 			     (setq ccs (charset-name ccs))
 			     (null (assq ccs char-spec))
 			     (setq ret (encode-char char ccs 'defined-only)))
@@ -508,7 +488,7 @@
 	   "(%-18s . %04d)\t; %c")
 	  ((or (memq name '(=daikanwa
 			    =daikanwa@rev1 =daikanwa@rev2
-			    =gt =gt-k =cbeta =zinbun-oracle))
+			    =gt <=>gt =gt-k =cbeta =zinbun-oracle))
 	       (string-match "^=adobe-" (symbol-name name)))
 	   "(%-18s . %05d)\t; %c")
 	  ((eq name 'mojikyo)