(coded-charset-entity-reference-alist): Add setting for isolated

[chise/xemacs-chise.git-] / lisp / mule / mule-coding.el

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index de3fafc..87f0e01 100644 (file)
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -5,7 +5,7 @@
 ;; Copyright (C) 1995 Amdahl Corporation.
 ;; Copyright (C) 1995 Sun Microsystems.
 ;; Copyright (C) 1997, 1999, 2002, 2003, 2004, 2005, 2006, 2008, 2009,
-;;   2010 MORIOKA Tomohiko
+;;   2010, 2011 MORIOKA Tomohiko
 
 ;; This file is part of XEmacs.
 
@@ -183,6 +183,7 @@
 (when (featurep 'utf-2000)
   (setq coded-charset-entity-reference-alist
        '(((=adobe-japan1-base  . isolated)    "I-AJ1-" 5 d)
+         ((=adobe-japan1-6     . isolated)    "I-AJ1-" 5 d)
          ((=gt                 . isolated)     "I-GT-" 5 d)
          ((=ruimoku-v6         . isolated)   "I-RUI6-" 4 X)
          ((chinese-big5-cdp    . isolated)    "I-CDP-" 4 X)
@@ -240,6 +241,7 @@
          ((arabic-digit        . isolated) "I-MULE-ARBD-" 2 X)
          ((ipa                 . isolated) "I-MULE-IPA-" 2 X)
          ((china3-jef          . isolated)    "I-JC3-" 4 X)
+         ((=hanyo-denshi/ja    . isolated)  "I-HD-JA-" 4 X)
          ( =adobe-japan1-6                      "AJ1-" 5 d)
          ( =adobe-japan1-base                 "I-AJ1-" 5 d)
          ( =gt                                   "GT-" 5 d)
@@ -316,6 +318,7 @@
          (=>>jis-x0208@1978                   "G-J78-" 4 X)
          (=>>big5-cdp                         "G-CDP-" 4 X)
          (=>>gt-k                             "G-GT-K" 5 d)
+         (=>>ruimoku-v6                      "G-RUI6-" 4 X)
          ( =>jis-x0208@usual                   "o-J0-" 4 X)
          ( =>jis-x0208@1997                     "J97-" 4 X)
          ( =>jis-x0208@1997                    "A-J0-" 4 X)
@@ -367,6 +370,11 @@
    '(mnemonic "MTF8r" 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))
+
+  (make-coding-system
    'utf-8-gb 'utf-8
    "Coding-system of UTF-8 using GB mapping."
    '(mnemonic "UTF8G"