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