From: morioka <morioka>
Date: Wed, 12 Aug 1998 14:12:18 +0000 (+0000)
Subject: Redefine coding-system `ctext' if `ctext-dos' is not found.
X-Git-Tag: apel-8_16~22
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=572198540a262dbdf8f79672a94edac6141e45b8;p=elisp%2Fapel.git

Redefine coding-system `ctext' if `ctext-dos' is not found.
---

diff --git a/emu-x20.el b/emu-x20.el
index f2f6acd..4ca3c3d 100644
--- a/emu-x20.el
+++ b/emu-x20.el
@@ -31,9 +31,14 @@
 (require 'emu-20)
 
 
+;;; @ fix coding-system definition
+;;;
+
+;; It seems not bug, but I can not permit it...
 (and (coding-system-property 'iso-2022-jp 'input-charset-conversion)
      (copy-coding-system 'iso-2022-7bit 'iso-2022-jp))
 
+;; Redefine if -{dos|mac|unix} is not found.
 (or (find-coding-system 'raw-text-dos)
     (copy-coding-system 'no-conversion-dos 'raw-text-dos))
 (or (find-coding-system 'raw-text-mac)
@@ -41,13 +46,13 @@
 (or (find-coding-system 'raw-text-unix)
     (copy-coding-system 'no-conversion-unix 'raw-text-unix))
 
-(or (find-coding-system 'euc-kr-dos)
+(or (find-coding-system 'ctext-dos)
     (make-coding-system
-     'euc-kr 'iso2022
-     "Coding-system of Korean EUC (Extended Unix Code)."
-     '(charset-g0 ascii charset-g1 korean-ksc5601
-		  mnemonic "ko/EUC"
-		  eol-type nil)))
+     'ctext 'iso2022
+     "Coding-system used in X as Compound Text Encoding."
+     '(charset-g0 ascii charset-g1 latin-iso8859-1
+		  eol-type nil
+		  mnemonic "CText")))
 
 (or (find-coding-system 'iso-2022-jp-2-dos)
     (make-coding-system
@@ -60,6 +65,14 @@
        mnemonic "ISO7/SS2"
        eol-type nil)))
 
+(or (find-coding-system 'euc-kr-dos)
+    (make-coding-system
+     'euc-kr 'iso2022
+     "Coding-system of Korean EUC (Extended Unix Code)."
+     '(charset-g0 ascii charset-g1 korean-ksc5601
+		  mnemonic "ko/EUC"
+		  eol-type nil)))
+
 
 ;;; @ without code-conversion
 ;;;