From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 3 Apr 2017 14:36:13 +0000 (+0900)
Subject: (==gt-pj-k1): New coded-charset for XEmacs CHISE.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1f9db0fb94b70d85ce9d18a0f3c131994eb41fed;p=chise%2Fxemacs-chise.git

(==gt-pj-k1): New coded-charset for XEmacs CHISE.
(==gt-pj-k2): Ditto.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 4983f60..f712834 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -2526,6 +2526,16 @@
 	       registry "\\(GTKpj-1\\|jisx0208\\.GTK-1\\)$"))
   (define-charset-alias 'ideograph-gt-pj-k1 '=gt-pj-k1)
   (make-charset
+   '==gt-pj-k1
+   "Ideographic parts of GT (pseudo JIS encoding) part 1"
+   '(long-name "GT K1"
+	       chars 94
+	       dimension 2
+	       columns 2
+	       graphic 0
+	       direction l2r
+	       registry "\\(GTKpj-1\\|jisx0208\\.GTK-1\\)$"))
+  (make-charset
    '=gt-pj-k2
    "Ideographic parts of GT (pseudo JIS encoding) part 2"
    '(long-name "GT K2"
@@ -2536,6 +2546,16 @@
 	       direction l2r
 	       registry "\\(GTKpj-2\\|jisx0208\\.GTK-2\\)$"))
   (define-charset-alias 'ideograph-gt-pj-k2 '=gt-pj-k2)
+  (make-charset
+   '==gt-pj-k2
+   "Ideographic parts of GT (pseudo JIS encoding) part 2"
+   '(long-name "GT K2"
+	       chars 94
+	       dimension 2
+	       columns 2
+	       graphic 0
+	       direction l2r
+	       registry "\\(GTKpj-2\\|jisx0208\\.GTK-2\\)$"))
 
   (make-charset '=daikanwa
 		"Daikanwa dictionary (unchanged part)"