1 ;;; apel-ver.el --- Declare APEL version.
3 ;; Copyright (C) 1999 Free Software Foundation, Inc.
4 ;; Copyright (C) 1999 Keiichi Suzuki
6 ;; Author: Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
7 ;; Keiichi Suzuki <keiichi@nanap.org>
8 ;; Keywords: compatibility
10 ;; This file is part of APEL (A Portable Emacs Library).
12 ;; This program is free software; you can redistribute it and/or
13 ;; modify it under the terms of the GNU General Public License as
14 ;; published by the Free Software Foundation; either version 2, or (at
15 ;; your option) any later version.
17 ;; This program is distributed in the hope that it will be useful, but
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20 ;; General Public License for more details.
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with this program; see the file COPYING. If not, write to
24 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
25 ;; Boston, MA 02111-1307, USA.
29 ;; Put the following lines to each file of APEL package.
32 ;; (product-provide (provide FEATURE) (require 'apel-ver))
36 (require 'product) ; beware of circular dependency.
37 (provide 'apel-ver) ; these two files depend on each other.
39 (product-provide 'apel-ver
40 (product-define "APEL" nil '(9 23)) ; comment.
41 ;; (product-define "APEL" nil '(9 24)) ;
42 ;; (product-define "APEL" nil '(9 25)) ;
43 ;; (product-define "APEL" nil '(9 26)) ;
46 (defun apel-version ()
49 (let ((product-info (product-string-1 'apel-ver t)))
51 (message "%s" product-info)
57 ;;; apel-ver.el ends here.