1;;; pces-e20.el --- pces submodule for Emacs 20  -*- lexical-binding: t -*-
2
3;; Copyright (C) 1998,1999 Free Software Foundation, Inc.
4
5;; Author: MORIOKA Tomohiko <tomo@m17n.org>
6;; Keywords: 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., 51 Franklin Street, Fifth Floor,
23;; Boston, MA 02110-1301, USA.
24
25;;; Code:
26
27(require 'pces-20)
28
29(defsubst find-coding-system (obj)
30  "Return OBJ if it is a coding-system."
31  (if (coding-system-p obj)
32      obj))
33
34(defalias 'set-process-input-coding-system 'set-process-coding-system)
35
36
37;;; @ end
38;;;
39
40(require 'product)
41(product-provide (provide 'pces-e20) (require 'apel-ver))
42
43;;; pces-e20.el ends here
44