APEL 3.4.2.

[elisp/apel.git] / emu-20.el

diff --git a/emu-20.el b/emu-20.el
index db66d36..fdda4ee 100644 (file)
--- a/emu-20.el
+++ b/emu-20.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-20.el,v 7.11 1997/08/30 07:46:38 morioka Exp $
+;; Version: $Id: emu-20.el,v 7.15 1997/09/07 02:57:51 morioka Exp $
 ;; Keywords: emulation, compatibility, Mule
 
 ;; This file is part of emu.
@@ -78,11 +78,10 @@ This constant is defined to emulate old MULE anything older than MULE
             (iso-2022-jp-2 . iso-2022-7bit-ss2)
             (x-ctext       . ctext)
             ))
-         (css (coding-system-list))
          dest)
       (while rest
        (let ((pair (car rest)))
-         (or (memq (car pair) css)
+         (or (find-coding-system (car pair))
              (setq dest (cons pair dest))
              ))
        (setq rest (cdr rest))
@@ -103,10 +102,11 @@ used as line break code type of coding-system."
     (if ret
        (setq charset (cdr ret))
       ))
-  (if (memq charset (coding-system-list))
-      (if lbt
-         (intern (concat (symbol-name charset) "-" (symbol-name lbt)))
-       charset)))
+  (if lbt
+      (setq charset (intern (format "%s-%s" charset lbt)))
+    )
+  (if (find-coding-system charset)
+      charset))
 
 (defsubst encode-mime-charset-region (start end charset)
   "Encode the text between START and END as MIME CHARSET."