From c1f8b4e5a65a60906038ae9ab9e1b76cc8fb91f6 Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 8 May 1999 10:10:57 +0000 Subject: [PATCH] Fix checking code about coding-system `x-ctext' [cf. by akr] --- mcs-e20.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4