From: tomo <tomo>
Date: Mon, 2 Aug 2010 10:30:39 +0000 (+0000)
Subject: (coded-charset-entity-reference-alist):
X-Git-Tag: chise-base-0_25-1^20~367
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1b5fb3b94393eed40063e57a9b13dc5363e4f05f;p=chise%2Fxemacs-chise.git

(coded-charset-entity-reference-alist):
- Prefer representative features to `=>>gt', `=>>big5-cdp', `=>>gt-k',
  `=>gt' and `=>zinbun-oracle'.
- Prefer abstract glyph features to `=>gt', `=>zinbun-oracle'.
- Add `=>big5-cdp'.
---

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index 1d422f8..569f699 100644
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -243,17 +243,11 @@
 	  ( =adobe-japan1-6			 "AJ1-" 5 d)
 	  ( =adobe-japan1-base		       "I-AJ1-" 5 d)
 	  ( =gt					  "GT-" 5 d)
-	  (=>>gt				"G-GT-" 5 d)
-	  (=>>gt				 "aGT-" 5 d)
-	  (=>gt					"A-GT-" 5 d)
 	  ( =zinbun-oracle                       "ZOB-" 4 d)
-	  (=>zinbun-oracle                     "A-ZOB-" 4 d)
 	  ( =ruimoku-v6				"RUI6-" 4 X)
 	  ( =big5-cdp			         "CDP-" 4 X)
-	  (=>>big5-cdp			       "G-CDP-" 4 X)
 	  ( ideograph-daikanwa                     "M-" 5 d)
 	  ( =gt-k				 "GT-K" 5 d)
-	  (=>>gt-k			       "G-GT-K" 5 d)
 	  ( ideograph-cbeta   		           "CB" 5 d)
 	  ( ideograph-hanziku-1                "HZK01-" 4 X)
 	  ( ideograph-hanziku-2                "HZK02-" 4 X)
@@ -321,6 +315,8 @@
 	  ( =ucs@cns				  "CU-" 8 X)
 	  ( =ucs@ks				  "KU+" 4 X)
 	  ( =ucs@ks				  "KU-" 8 X)
+	  (=>>gt				"G-GT-" 5 d)
+	  (=>>gt				 "aGT-" 5 d)
 	  (=>>ucs@unicode                    	"G-UU+" 4 X)
 	  (=>>ucs@jis				"G-JU+" 4 X)
 	  (=>>ucs@cns				"G-CU+" 4 X)
@@ -335,17 +331,22 @@
 	  (=>>jis-x0213-2	   		"aJX2-" 4 X)
 	  (=>>jis-x0213-1@2004		        "aJX3-" 4 X)
 	  (=>>jis-x0208@1978		       "G-J78-" 4 X)
+	  (=>>big5-cdp			       "G-CDP-" 4 X)
+	  (=>>gt-k			       "G-GT-K" 5 d)
 	  ( =>jis-x0208@1997			 "J97-" 4 X)
 	  ( =>jis-x0208@1997			"A-J0-" 4 X)
 	  ( =>jis-x0213-1@2000		       "A-JX1-" 4 X)
 	  ( =>jis-x0213-2		       "A-JX2-" 4 X)
 	  ( =>jis-x0213-1@2004		       "A-JX3-" 4 X)
-	  ( china3-jef                    	 "JC3-" 4 X)
-	  ( chinese-big5                    	   "B-" 4 X)
-	  ( chinese-big5                    	  "C0-" 4 X)
-	  ( =jis-x0208@1978/i1                 "J78i1-" 4 X)
-	  ( =shinjigen@rev                      "SJG2-" 4 d)
-	  ( =shinjigen@1ed                      "SJG1-" 4 d)
+	  ( =>gt				"A-GT-" 5 d)
+	  ( =>zinbun-oracle		       "A-ZOB-" 4 d)
+	  ( china3-jef				 "JC3-" 4 X)
+	  ( chinese-big5			   "B-" 4 X)
+	  ( chinese-big5			  "C0-" 4 X)
+	  ( =>big5-cdp			       "A-CDP-" 4 X)
+	  ( =jis-x0208@1978/i1		       "J78i1-" 4 X)
+	  ( =shinjigen@rev			"SJG2-" 4 d)
+	  ( =shinjigen@1ed			"SJG1-" 4 d)
 	  ))
 
   (make-coding-system