X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=poem-e20_3.el;h=5a72faaaaa46793ba9ba02e75ae897164fd37268;hb=a79ae6e8a00f5a24df814987a042818f27523141;hp=48faf699b702c52fb51f5808db136034032fd66a;hpb=111faa4a9e0aebf7021dc1c679a3c560e93acabd;p=elisp%2Fapel.git

diff --git a/poem-e20_3.el b/poem-e20_3.el
index 48faf69..5a72faa 100644
--- a/poem-e20_3.el
+++ b/poem-e20_3.el
@@ -1,9 +1,9 @@
 ;;; -*-byte-compile-dynamic: t;-*-
 ;;; poem-e20_3.el --- poem submodule for Emacs 20.3
 
-;; Copyright (C) 1998 Free Software Foundation, Inc.
+;; Copyright (C) 1998,1999,2000 Free Software Foundation, Inc.
 
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Author: MORIOKA Tomohiko <tomo@m17n.org>
 ;; Keywords: emulation, compatibility, Mule
 
 ;; This file is part of APEL (A Portable Emacs Library).
@@ -29,6 +29,8 @@
 
 ;;; Code:
 
+(require 'pym)
+
 ;;; @ character
 ;;;
 
@@ -40,6 +42,8 @@
   "Return index of character succeeding CHAR whose index is INDEX."
   `(1+ ,index))
 
+(defalias-maybe 'characterp 'char-valid-p)
+
 
 ;;; @ string
 ;;;
@@ -58,6 +62,7 @@
 ;;; @ end
 ;;;
 
-(provide 'poem-e20_3)
+(require 'product)
+(product-provide (provide 'poem-e20_3) (require 'apel-ver))
 
 ;;; poem-e20_3.el ends here