From: morioka <morioka>
Date: Fri, 7 May 1999 07:29:04 +0000 (+0000)
Subject: Check coding-system `x-ctext' is not defined.
X-Git-Tag: apel-9_17~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7676472c8a29e8435bd7937f1aa95d6db9603f0b;p=elisp%2Fapel.git

Check coding-system `x-ctext' is not defined.
---

diff --git a/mcs-e20.el b/mcs-e20.el
index f5c5e36..00b699d 100644
--- a/mcs-e20.el
+++ b/mcs-e20.el
@@ -1,8 +1,8 @@
 ;;; mcs-e20.el --- MIME charset implementation for Emacs 20.1 and 20.2
 
-;; Copyright (C) 1996,1997,1998 Free Software Foundation, Inc.
+;; Copyright (C) 1996,1997,1998,1999 Free Software Foundation, Inc.
 
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Author: MORIOKA Tomohiko <tomo@m17n.org>
 ;; Keywords: emulation, compatibility, Mule
 
 ;; This file is part of APEL (A Portable Emacs Library).
@@ -28,7 +28,10 @@
 
 ;;; Code:
 
-(eval-when-compile (require 'static))
+(eval-when-compile
+  (require 'static)
+  (require 'poem)
+  )
 
 (defsubst encode-mime-charset-region (start end charset &optional lbt)
   "Encode the text between START and END as MIME CHARSET."
@@ -155,15 +158,19 @@ Return nil if corresponding MIME-charset is not found."
       dest)
     ))
 
-(static-when (string= (decode-coding-string "\e.A\eN!" 'ctext) "\eN!")
-  (make-coding-system
-   'x-ctext 2 ?x
-   "Compound text based generic encoding for decoding unknown messages."
-   '((ascii t) (latin-iso8859-1 t) t t
-     nil ascii-eol ascii-cntl nil locking-shift single-shift nil nil nil
-     init-bol nil nil)
-   '((safe-charsets . t)
-     (mime-charset . x-ctext))))
+(static-when (or (string= (decode-coding-string "\e.A\eN!" 'ctext) "\eN!")
+		 (find-coding-system 'x-ctext))
+  (require 'poem)
+  (or (find-coding-system 'x-ctext)
+      (make-coding-system
+       'x-ctext 2 ?x
+       "Compound text based generic encoding for decoding unknown messages."
+       '((ascii t) (latin-iso8859-1 t) t t
+	 nil ascii-eol ascii-cntl nil locking-shift single-shift nil nil nil
+	 init-bol nil nil)
+       '((safe-charsets . t)
+	 (mime-charset . x-ctext)))
+      ))
 
 
 ;;; @ end