Require `pces-xfc' if the feature `mule' is provided even though the feature
[elisp/apel.git] / pces.el
1 ;;; pces.el --- Portable Character Encoding Scheme (coding-system) features
2
3 ;; Copyright (C) 1998,1999 Free Software Foundation, Inc.
4
5 ;; Author: MORIOKA Tomohiko <tomo@m17n.org>
6 ;; Keywords: coding-system, emulation, compatibility, Mule
7
8 ;; This file is part of APEL (A Portable Emacs Library).
9
10 ;; This program is free software; you can redistribute it and/or
11 ;; modify it under the terms of the GNU General Public License as
12 ;; published by the Free Software Foundation; either version 2, or (at
13 ;; your option) any later version.
14
15 ;; This program is distributed in the hope that it will be useful, but
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
18 ;; General Public License for more details.
19
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
24
25 ;;; Code:
26
27 (require 'poe)
28
29 (eval-and-compile
30   (unless (fboundp 'open-network-stream)
31     (require 'tcp)))
32
33 (cond ((featurep 'xemacs)
34        (if (or (featurep 'mule) (featurep 'file-coding))
35            (require 'pces-xfc)
36          ))
37       ((featurep 'mule)
38        (if (>= emacs-major-version 20)
39            (require 'pces-e20)
40          ;; for MULE 1.* and 2.*
41          (require 'pces-om)
42          ))
43       ((boundp 'NEMACS)
44        ;; for Nemacs and Nepoch
45        (require 'pces-nemacs)
46        )
47       (t
48        (require 'pces-raw)
49        ))
50
51          
52 ;;; @ end
53 ;;;
54
55 (provide 'pces)
56
57 ;;; pces.el ends here