From: tomo <tomo>
Date: Thu, 27 Feb 2003 07:52:03 +0000 (+0000)
Subject: (=gt-pj-*): Renamed from `ideograph-gt-pj-*'.
X-Git-Tag: r21-4-10-utf-2000-0_20-=gt-pj-x~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=aae2e1c6c2ad61840e021f0dd2329f1b7522f9c6;p=chise%2Fxemacs-chise.git-

(=gt-pj-*): Renamed from `ideograph-gt-pj-*'.
(ideograph-gt-pj-*): Changed to an alias for `=gt-pj-*'.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index fc1472c..f843d38 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -258,7 +258,7 @@
   (let ((i 1))
     (while (<= i 11)
       (make-charset
-       (intern (format "ideograph-gt-pj-%d" i))
+       (intern (format "=gt-pj-%d" i))
        (format "GT PJ %d" i)
        `(long-name ,(format "GT 2000 (pseudo JIS encoding) part %d" i)
 		   chars 94
@@ -267,9 +267,12 @@
 		   graphic 0
 		   direction l2r
 		   registry ,(format "\\(GTpj-%d\\|jisx0208\\.GT-%d\\)$" i i)))
+      (define-charset-alias
+	(intern (format "ideograph-gt-pj-%d" i))
+	(intern (format "=gt-pj-%d" i)))
       (setq i (1+ i))))
   (make-charset
-   'ideograph-gt-pj-k1
+   '=gt-pj-k1
    "GT K1"
    `(long-name "Ideographic parts of GT (pseudo JIS encoding) part 1"
 	       chars 94
@@ -278,8 +281,9 @@
 	       graphic 0
 	       direction l2r
 	       registry "\\(GTKpj-1\\|jisx0208\\.GTK-1\\)$"))
+  (define-charset-alias 'ideograph-gt-pj-k1 '=gt-pj-k1)
   (make-charset
-   'ideograph-gt-pj-k2
+   '=gt-pj-k2
    "GT K2"
    `(long-name "Ideographic parts of GT (pseudo JIS encoding) part 2"
 	       chars 94
@@ -288,6 +292,7 @@
 	       graphic 0
 	       direction l2r
 	       registry "\\(GTKpj-2\\|jisx0208\\.GTK-2\\)$"))
+  (define-charset-alias 'ideograph-gt-pj-k2 '=gt-pj-k2)
   (make-charset '=cbeta "CBETA PUA"
 		'(long-name	"CBETA private characters"
 		  chars		256