From: morioka <morioka>
Date: Sat, 8 May 1999 10:10:57 +0000 (+0000)
Subject: Fix checking code about coding-system `x-ctext' [cf. <tm-ja:4389> by
X-Git-Tag: apel-9_18~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c1f8b4e5a65a60906038ae9ab9e1b76cc8fb91f6;p=elisp%2Fapel.git

Fix checking code about coding-system `x-ctext' [cf. <tm-ja:4389> by
akr]
---

diff --git a/mcs-e20.el b/mcs-e20.el
index 00b699d..7eae509 100644
--- a/mcs-e20.el
+++ b/mcs-e20.el
@@ -158,8 +158,8 @@ Return nil if corresponding MIME-charset is not found."
       dest)
     ))
 
-(static-when (or (string= (decode-coding-string "\e.A\eN!" 'ctext) "\eN!")
-		 (find-coding-system 'x-ctext))
+(static-when (and (string= (decode-coding-string "\e.A\eN!" 'ctext) "\eN!")
+		  (not (find-coding-system 'x-ctext)))
   (require 'poem)
   (or (find-coding-system 'x-ctext)
       (make-coding-system