X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fapel.git;a=blobdiff_plain;f=poem-e20.el;h=9422e4cd4409eaa2333b838f5e911b7eda4587ff;hp=32aac213bd75a3f04249b934f88a630118503817;hb=24a3e5bce8c3c1228130d84b297002c73b185f70;hpb=0df64d3b6ef5ae5212fd59ee13dd5f044b378ba6

diff --git a/poem-e20.el b/poem-e20.el
index 32aac21..9422e4c 100644
--- a/poem-e20.el
+++ b/poem-e20.el
@@ -1,4 +1,4 @@
-;;; poem-e20.el --- poem implementation for XEmacs-mule
+;;; poem-e20.el --- poem submodule for Emacs 20; -*-byte-compile-dynamic: t;-*-
 
 ;; Copyright (C) 1998 Free Software Foundation, Inc.
 
@@ -19,8 +19,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Code:
 
@@ -50,28 +50,16 @@ in the region between START and END."
   (delq 'ascii (find-charset-string (buffer-substring start end))))
 
 
-;;; @ coding system
-;;;
-
-(defsubst-maybe find-coding-system (obj)
-  "Return OBJ if it is a coding-system."
-  (if (coding-system-p obj)
-      obj))
-
-(defalias 'set-process-input-coding-system 'set-process-coding-system)
-
-
 ;;; @ end
 ;;;
 
-(require 'poem-20)
-
 (if (and (fboundp 'set-buffer-multibyte)
 	 (subrp (symbol-function 'set-buffer-multibyte)))
     (require 'poem-e20_3) ; for Emacs 20.3
   (require 'poem-e20_2) ; for Emacs 20.1 and 20.2
   )
 
-(provide 'poem-e20)
+(require 'product)
+(product-provide (provide 'poem-e20) (require 'apel-ver))
 
 ;;; poem-e20.el ends here