update.

[elisp/apel.git] / poem-e20_3.el

diff --git a/poem-e20_3.el b/poem-e20_3.el
index 4c3b1e2..ec08b80 100644 (file)
--- a/poem-e20_3.el
+++ b/poem-e20_3.el
@@ -1,8 +1,9 @@
-;;; poem-e20_3.el --- poem implementation for Emacs 20.3.
+;;; -*-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).
@@ -19,8 +20,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.
 
 ;;; Commentary:
 
@@ -28,6 +29,8 @@
 
 ;;; Code:
 
+(require 'pym)
+
 ;;; @ character
 ;;;
 
@@ -39,6 +42,8 @@
   "Return index of character succeeding CHAR whose index is INDEX."
   `(1+ ,index))
 
+(defalias-maybe 'characterp 'char-valid-p)
+
 
 ;;; @ string
 ;;;
@@ -57,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