From 53ca565e29a56854bd790fc9882fef05256d3e4e Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 12 Sep 2008 15:43:37 +0000 Subject: [PATCH] (=jis-x0213-1-2000): Changed to the alias of `=jis-x0213-1@2000' instead of `=jis-x0213-1'. (=jis-x0208@1978/i-4): Specify `partial'. (=jis-x0208@1978/i1): Likewise; use `=jis-x0208@1978/i-4' as the mother coded-charset. (=jis-x0208@1978/i4-): New coded-charset for XEmacs CHISE. --- lisp/mule/mule-conf.el | 31 +++++++++++++++++++++---------- 1 file changed, 21 insertions(+), 10 deletions(-) diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el index ce6b22f..02f5f14 100644 --- a/lisp/mule/mule-conf.el +++ b/lisp/mule/mule-conf.el @@ -173,8 +173,7 @@ (define-charset-alias 'japanese-jisx0213-1 '=jis-x0213-1@2000) (define-charset-alias 'japanese-jisx0213-2 '=jis-x0213-2) - ;; (define-charset-alias '=jis-x0213-1-2000 '=jis-x0213-1@2000) - (define-charset-alias '=jis-x0213-1-2000 '=jis-x0213-1) + (define-charset-alias '=jis-x0213-1-2000 '=jis-x0213-1@2000) (define-charset-alias '=jis-x0213-2-2000 '=jis-x0213-2) ) (t @@ -210,23 +209,35 @@ ;; final ?B graphic 0)) (make-charset - '=jis-x0208@1978/i1 - "The first impression of JIS X 0208:1978." + '=jis-x0208@1978/i-4 + "JIS X 0208:1978, 1st - 3rd impressions." '(registry "jisx0208\\.1978" dimension 2 chars 94 mother =jis-x0208@1978 - ;; final ?@ - graphic 0)) + ;; final ?@ + graphic 0 + partial t)) (make-charset - '=jis-x0208@1978/i-4 - "The second and third impressions of JIS X 0208:1978." + '=jis-x0208@1978/i1 + "JIS X 0208:1978, 1st impression." + '(registry "jisx0208\\.1978" + dimension 2 + chars 94 + mother =jis-x0208@1978/i-4 + ;; final ?@ + graphic 0 + partial t)) + (make-charset + '=jis-x0208@1978/i4- + "JIS X 0208:1978, 4th impression or later." '(registry "jisx0208\\.1978" dimension 2 chars 94 mother =jis-x0208@1978 - ;; final ?@ - graphic 0)) + ;; final ?@ + graphic 0 + partial t)) (make-charset '=big5-cdp "Big5 with CDP extension" -- 1.7.10.4