From 46fdc67510d0c44bec2c1a5283aa4ceaebb3e9c0 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Mon, 11 Jun 2012 18:08:41 +0900 Subject: [PATCH] (utf-8-ivs-mcs): New coding-system for XEmacs CHISE. (utf-8-ivs-mcs-er): Likewise. (utf-8-gb): Use `=ucs@gb' and `=>ucs@unicode' instead of `ucs-gb' and `=>ucs-gb'. (utf-8-ivs-gb): New coding-system for XEmacs CHISE. (utf-8-gb-er): Use `=ucs@gb' and `=>ucs@unicode' instead of `ucs-gb' and `=>ucs-gb'. (utf-8-ivs-gb-er): New coding-system for XEmacs CHISE. (utf-8-cns): Use `=ucs@cns' and `=>ucs@cns' instead of `ucs-cns' and `=>ucs-cns'. (utf-8-ivs-cns): New coding-system for XEmacs CHISE. (utf-8-cns-er): Use `=ucs@cns' and `=>ucs@cns' instead of `ucs-cns' and `=>ucs-cns'. (utf-8-ivs-cns-er): New coding-system for XEmacs CHISE. (utf-8-big5): Use `=ucs@big5' and `=>ucs@big5' instead of `ucs-big5' and `=>ucs-big5'. (utf-8-ivs-big5): New coding-system for XEmacs CHISE. (utf-8-big5-er): Use `=ucs@big5' and `=>ucs@big5' instead of `ucs-big5' and `=>ucs-big5'. (utf-8-ivs-big5-er): New coding-system for XEmacs CHISE. (utf-8-jis): Use `=ucs@jis/2000' and `=>ucs@jis' instead of `=ucs@jis-2000' and `=>ucs-jis'; modify DOC and mnemonic. (utf-8-ivs-jis): New coding-system for XEmacs CHISE. (utf-8-jis-er): Use `=ucs@jis/2000' and `=>ucs@jis' instead of `=ucs@jis-2000' and `=>ucs-jis'; modify DOC and mnemonic. (utf-8-ivs-jis-er): New coding-system for XEmacs CHISE. (utf-8-jp): Use `=ucs@JP' and `=>ucs@jis' instead of `=ucs@jp' and `=>ucs-jis'; modify DOC and mnemonic. (utf-8-ivs-jp): New coding-system for XEmacs CHISE. (utf-8-jp-er): Use `=ucs@JP' and `=>ucs@jis' instead of `=ucs@jp' and `=>ucs-jis'; modify DOC and mnemonic. (utf-8-ivs-jp-er): New coding-system for XEmacs CHISE. (utf-8-ks): Use `=ucs@ks' and `=>ucs@ks' instead of `ucs-ks' and `=>ucs-ks'. (utf-8-ivs-ks): New coding-system for XEmacs CHISE. (utf-8-ks-er): Use `=ucs@ks' and `=>ucs@ks' instead of `ucs-ks' and `=>ucs-ks'. (utf-8-ivs-ks-er): New coding-system for XEmacs CHISE. --- lisp/mule/mule-coding.el | 188 ++++++++++++++++++++++++++++++++++++++-------- 1 file changed, 156 insertions(+), 32 deletions(-) diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el index 4654aae..966a4de 100644 --- a/lisp/mule/mule-coding.el +++ b/lisp/mule/mule-coding.el @@ -442,11 +442,21 @@ )) (make-coding-system + 'utf-8-ivs-mcs 'utf-8 + "Coding-system of UTF-8 with IVS." + '(mnemonic "MTF8i" enable-decomposition t)) + + (make-coding-system 'utf-8-mcs-er 'utf-8 "Coding-system of UTF-8 with entity-reference." '(mnemonic "MTF8r" use-entity-reference t)) (make-coding-system + 'utf-8-ivs-mcs-er 'utf-8 + "Coding-system of UTF-8 with IVS and entity-reference." + '(mnemonic "MTF8ir" enable-decomposition t use-entity-reference t)) + + (make-coding-system 'utf-8-mcs-no-composition 'utf-8 "Coding-system of UTF-8 without composition." '(mnemonic "MTF8-nc" disable-composition t)) @@ -455,102 +465,216 @@ 'utf-8-gb 'utf-8 "Coding-system of UTF-8 using GB mapping." '(mnemonic "UTF8G" - charset-g0 ucs-gb - charset-g1 =>ucs-gb + charset-g0 =ucs@gb + charset-g1 =>ucs@unicode charset-g2 =>ucs)) (make-coding-system + 'utf-8-ivs-gb 'utf-8 + "Coding-system of UTF-8 using GB mapping with IVS." + '(mnemonic "UTF8iG" + charset-g0 =ucs@gb + charset-g1 =>ucs@unicode + charset-g2 =>ucs + enable-decomposition t)) + + (make-coding-system 'utf-8-gb-er 'utf-8 "Coding-system of UTF-8 using GB mapping with entity-reference." '(mnemonic "UTF8Gr" - charset-g0 ucs-gb - charset-g1 =>ucs-gb + charset-g0 =ucs@gb + charset-g1 =>ucs@unicode + charset-g2 =>ucs + use-entity-reference t)) + + (make-coding-system + 'utf-8-ivs-gb-er 'utf-8 + "Coding-system of UTF-8 using GB mapping with IVS and entity-reference." + '(mnemonic "UTF8iGr" + charset-g0 =ucs@gb + charset-g1 =>ucs@unicode charset-g2 =>ucs + enable-decomposition t use-entity-reference t)) (make-coding-system 'utf-8-cns 'utf-8 "Coding-system of UTF-8 using CNS mapping." '(mnemonic "UTF8C" - charset-g0 ucs-cns - charset-g1 =>ucs-cns + charset-g0 =ucs@cns + charset-g1 =>ucs@cns charset-g2 =>ucs)) (make-coding-system + 'utf-8-ivs-cns 'utf-8 + "Coding-system of UTF-8 using CNS mapping with IVS." + '(mnemonic "UTF8iC" + charset-g0 =ucs@cns + charset-g1 =>ucs@cns + charset-g2 =>ucs + enable-decomposition t)) + + (make-coding-system 'utf-8-cns-er 'utf-8 "Coding-system of UTF-8 using CNS mapping with entity-reference." '(mnemonic "UTF8Cr" - charset-g0 ucs-cns - charset-g1 =>ucs-cns + charset-g0 =ucs@cns + charset-g1 =>ucs@cns + charset-g2 =>ucs + use-entity-reference t)) + + (make-coding-system + 'utf-8-ivs-cns-er 'utf-8 + "Coding-system of UTF-8 using CNS mapping with IVS and entity-reference." + '(mnemonic "UTF8iCr" + charset-g0 =ucs@cns + charset-g1 =>ucs@cns charset-g2 =>ucs + enable-decomposition t use-entity-reference t)) (make-coding-system 'utf-8-big5 'utf-8 "Coding-system of UTF-8 using Big5 mapping." '(mnemonic "UTF8B" - charset-g0 ucs-big5 - charset-g1 =>ucs-big5 + charset-g0 =ucs@big5 + charset-g1 =>ucs@big5 charset-g2 =>ucs)) (make-coding-system + 'utf-8-ivs-big5 'utf-8 + "Coding-system of UTF-8 using Big5 mapping with IVS." + '(mnemonic "UTF8iB" + charset-g0 =ucs@big5 + charset-g1 =>ucs@big5 + charset-g2 =>ucs + enable-decomposition t)) + + (make-coding-system 'utf-8-big5-er 'utf-8 "Coding-system of UTF-8 using Big5 mapping with entity-reference." '(mnemonic "UTF8Br" - charset-g0 ucs-big5 - charset-g1 =>ucs-big5 + charset-g0 =ucs@big5 + charset-g1 =>ucs@big5 + charset-g2 =>ucs + use-entity-reference t)) + + (make-coding-system + 'utf-8-ivs-big5-er 'utf-8 + "Coding-system of UTF-8 using Big5 mapping with IVS and entity-reference." + '(mnemonic "UTF8iBr" + charset-g0 =ucs@big5 + charset-g1 =>ucs@big5 charset-g2 =>ucs + enable-decomposition t use-entity-reference t)) (make-coding-system 'utf-8-jis 'utf-8 - "Coding-system of UTF-8 using JIS mapping." - '(mnemonic "UTF8J" - charset-g0 =ucs@jis-2000 - charset-g1 =>ucs-jis + "Coding-system of UTF-8 using JIS2000 mapping." + '(mnemonic "UTF8J00" + charset-g0 =ucs@jis/2000 + charset-g1 =>ucs@jis charset-g2 =>ucs)) (make-coding-system + 'utf-8-ivs-jis 'utf-8 + "Coding-system of UTF-8 using JIS2000 mapping with IVS." + '(mnemonic "UTF8iJ00" + charset-g0 =ucs@jis/2000 + charset-g1 =>ucs@jis + charset-g2 =>ucs + enable-decomposition t)) + + (make-coding-system 'utf-8-jis-er 'utf-8 - "Coding-system of UTF-8 using JIS mapping with entity-reference." - '(mnemonic "UTF8Jr" - charset-g0 =ucs@jis-2000 - charset-g1 =>ucs-jis + "Coding-system of UTF-8 using JIS2000 mapping with entity-reference." + '(mnemonic "UTF8J00r" + charset-g0 =ucs@jis/2000 + charset-g1 =>ucs@jis + charset-g2 =>ucs + use-entity-reference t)) + + (make-coding-system + 'utf-8-ivs-jis-er 'utf-8 + "Coding-system of UTF-8 using JIS2000 mapping with IVS and entity-reference." + '(mnemonic "UTF8iJ00r" + charset-g0 =ucs@jis/2000 + charset-g1 =>ucs@jis charset-g2 =>ucs + enable-decomposition t use-entity-reference t)) (make-coding-system 'utf-8-jp 'utf-8 - "Coding-system of UTF-8 for common glyphs used in Japan." - '(mnemonic "UTF8J" - charset-g0 =ucs@jp - charset-g1 =>ucs-jis + "Coding-system of UTF-8 using =ucs@JP mapping." + '(mnemonic "UTF8JP" + charset-g0 =ucs@JP + charset-g1 =>ucs@jis charset-g2 =>ucs)) (make-coding-system + 'utf-8-ivs-jp 'utf-8 + "Coding-system of UTF-8 using =ucs@JP mapping with IVS." + '(mnemonic "UTF8iJP" + charset-g0 =ucs@JP + charset-g1 =>ucs@jis + charset-g2 =>ucs + enable-decomposition t)) + + (make-coding-system 'utf-8-jp-er 'utf-8 - "Coding-system of UTF-8 using =ucs@jp mapping with entity-reference." - '(mnemonic "UTF8Jr" - charset-g0 =ucs@jp - charset-g1 =>ucs-jis + "Coding-system of UTF-8 using =ucs@JP mapping with entity-reference." + '(mnemonic "UTF8JPr" + charset-g0 =ucs@JP + charset-g1 =>ucs@jis charset-g2 =>ucs use-entity-reference t)) (make-coding-system + 'utf-8-ivs-jp-er 'utf-8 + "Coding-system of UTF-8 using =ucs@JP mapping with IVS and entity-reference." + '(mnemonic "UTF8iJPr" + charset-g0 =ucs@JP + charset-g1 =>ucs@jis + charset-g2 =>ucs + enable-decomposition t + use-entity-reference t)) + + (make-coding-system 'utf-8-ks 'utf-8 "Coding-system of UTF-8 using KS mapping." '(mnemonic "UTF8K" - charset-g0 ucs-ks - charset-g1 =>ucs-ks + charset-g0 =ucs@ks + charset-g1 =>ucs@ks charset-g2 =>ucs)) (make-coding-system + 'utf-8-ivs-ks 'utf-8 + "Coding-system of UTF-8 using KS mapping with IVS." + '(mnemonic "UTF8iK" + charset-g0 =ucs@ks + charset-g1 =>ucs@ks + charset-g2 =>ucs + enable-decomposition t)) + + (make-coding-system 'utf-8-ks-er 'utf-8 "Coding-system of UTF-8 using KS mapping with entity-reference." '(mnemonic "UTF8Kr" - charset-g0 ucs-ks - charset-g1 =>ucs-ks + charset-g0 =ucs@ks + charset-g1 =>ucs@ks + charset-g2 =>ucs + use-entity-reference t)) + + (make-coding-system + 'utf-8-ivs-ks-er 'utf-8 + "Coding-system of UTF-8 using KS mapping with IVS and entity-reference." + '(mnemonic "UTF8iKr" + charset-g0 =ucs@ks + charset-g1 =>ucs@ks charset-g2 =>ucs + enable-decomposition t use-entity-reference t)) (define-coding-system-alias 'utf-8 'utf-8-mcs) -- 1.7.10.4