From: keiichi <keiichi>
Date: Mon, 20 Dec 1999 11:11:45 +0000 (+0000)
Subject: Add product information.
X-Git-Tag: apel-10_0~24
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8ea0cf57c248b6a4ba2f73288cc1b7cad582e171;p=elisp%2Fapel.git

Add product information.
---

diff --git a/alist.el b/alist.el
index fbd409a..c016c92 100644
--- a/alist.el
+++ b/alist.el
@@ -100,6 +100,7 @@ its value regard as nil."
 ;;; @ end
 ;;;
 
-(provide 'alist)
+(require 'product)
+(product-provide (provide 'alist) (require 'apel-ver))
 
 ;;; alist.el ends here
diff --git a/atype.el b/atype.el
index 81c2866..b595296 100644
--- a/atype.el
+++ b/atype.el
@@ -185,6 +185,7 @@
 ;;; @ end
 ;;;
 
-(provide 'atype)
+(require 'product)
+(product-provide (provide 'atype) (require 'apel-ver))
 
 ;;; atype.el ends here
diff --git a/broken.el b/broken.el
index c5d5e40..c74eb63 100644
--- a/broken.el
+++ b/broken.el
@@ -108,6 +108,7 @@ compile(macro expansion) time and run time, warn it."
 ;;; @ end
 ;;;
 
-(provide 'broken)
+(require 'product)
+(product-provide (provide 'broken) (require 'apel-ver))
 
 ;;; broken.el ends here
diff --git a/calist.el b/calist.el
index 88c6ec4..fbef680 100644
--- a/calist.el
+++ b/calist.el
@@ -325,6 +325,7 @@ even if other rules are matched for ALIST."
 ;;; @ end
 ;;;
 
-(provide 'calist)
+(require 'product)
+(product-provide (provide 'calist) (require 'apel-ver))
 
 ;;; calist.el ends here
diff --git a/emu-mule.el b/emu-mule.el
index 62cb5ce..b837e0f 100644
--- a/emu-mule.el
+++ b/emu-mule.el
@@ -55,6 +55,7 @@
 ;;; @ end
 ;;;
 
-(provide 'emu-mule)
+(require 'product)
+(product-provide (provide 'emu-mule) (require 'apel-ver))
 
 ;;; emu-mule.el ends here
diff --git a/emu.el b/emu.el
index 038b7fb..d610c53 100644
--- a/emu.el
+++ b/emu.el
@@ -227,6 +227,7 @@ find-file-hooks, etc.
 ;;; @ end
 ;;;
 
-(provide 'emu)
+(require 'product)
+(product-provide (provide 'emu) (require 'apel-ver))
 
 ;;; emu.el ends here
diff --git a/env.el b/env.el
index c0e68f6..bc28492 100644
--- a/env.el
+++ b/env.el
@@ -109,6 +109,7 @@ This function works by modifying `process-environment'."
 		    (cons (concat variable "=" value)
 			  process-environment)))))))
 
-(provide 'env)
+(require 'product)
+(product-provide (provide 'env) (require 'apel-ver))
 
 ;;; env.el ends here
diff --git a/file-detect.el b/file-detect.el
index ce6f9bf..6dc86be 100644
--- a/file-detect.el
+++ b/file-detect.el
@@ -33,6 +33,7 @@
 
 (require 'path-util)
 
-(provide 'file-detect)
+(require 'product)
+(product-provide (provide 'file-detect) (require 'apel-ver))
 
 ;;; file-detect.el ends here
diff --git a/filename.el b/filename.el
index c2cc48c..bbe1f9a 100644
--- a/filename.el
+++ b/filename.el
@@ -147,6 +147,7 @@ It refers variable `filename-filters' and default filters refers
 ;;; @ end
 ;;;
 
-(provide 'filename)
+(require 'product)
+(product-provide (provide 'filename) (require 'apel-ver))
 
 ;;; filename.el ends here
diff --git a/install.el b/install.el
index 4ddd36c..1aa56a3 100644
--- a/install.el
+++ b/install.el
@@ -234,6 +234,7 @@ to create parent directories if they don't exist."
 ;;; @ end
 ;;;
 
-(provide 'install)
+(require 'product)
+(product-provide (provide 'install) (require 'apel-ver))
 
 ;;; install.el ends here
diff --git a/inv-18.el b/inv-18.el
index 21e54ca..dfeb653 100644
--- a/inv-18.el
+++ b/inv-18.el
@@ -80,6 +80,7 @@
 ;;; @ end
 ;;;
 
-(provide 'inv-18)
+(require 'product)
+(product-provide (provide 'inv-18) (require 'apel-ver))
 
 ;;; inv-18.el ends here
diff --git a/inv-19.el b/inv-19.el
index 3f99a03..2fafbf3 100644
--- a/inv-19.el
+++ b/inv-19.el
@@ -58,6 +58,7 @@
 ;;; @ end
 ;;;
 
-(provide 'inv-19)
+(require 'product)
+(product-provide (provide 'inv-19) (require 'apel-ver))
 
 ;;; inv-19.el ends here
diff --git a/inv-xemacs.el b/inv-xemacs.el
index c6c056b..128bc89 100644
--- a/inv-xemacs.el
+++ b/inv-xemacs.el
@@ -65,6 +65,7 @@
 ;;; @ end
 ;;;
 
-(provide 'inv-xemacs)
+(require 'product)
+(product-provide (provide 'inv-xemacs) (require 'apel-ver))
 
 ;;; inv-xemacs.el ends here
diff --git a/invisible.el b/invisible.el
index 265ee92..0cab393 100644
--- a/invisible.el
+++ b/invisible.el
@@ -40,6 +40,7 @@
 ;;; @ end
 ;;;
 
-(provide 'invisible)
+(require 'product)
+(product-provide (provide 'invisible) (require 'apel-ver))
 
 ;;; invisible.el ends here
diff --git a/localhook.el b/localhook.el
index 8c1bf11..f8e59cc 100644
--- a/localhook.el
+++ b/localhook.el
@@ -59,7 +59,10 @@
 
 ;;; Code:
 
-(provide 'localhook)			; beware of circular dependency.
+;; beware of circular dependency.
+(require 'product)
+(product-provide (provide 'localhook) (require 'apel-ver))
+
 (require 'poe)				; this file is loaded from poe.el.
 
 ;; These two functions are not complete, but work enough for our purpose.
diff --git a/mcharset.el b/mcharset.el
index 44a65cb..156c34e 100644
--- a/mcharset.el
+++ b/mcharset.el
@@ -113,6 +113,7 @@ variable `default-mime-charset-for-write' is returned."
 ;;; @ end
 ;;;
 
-(provide 'mcharset)
+(require 'product)
+(product-provide (provide 'mcharset) (require 'apel-ver))
 
 ;;; mcharset.el ends here
diff --git a/mcs-20.el b/mcs-20.el
index b4472d5..77911a4 100644
--- a/mcs-20.el
+++ b/mcs-20.el
@@ -155,6 +155,7 @@ It must be symbol."
 ;;; @ end
 ;;;
 
-(provide 'mcs-20)
+(require 'product)
+(product-provide (provide 'mcs-20) (require 'apel-ver))
 
 ;;; mcs-20.el ends here
diff --git a/mcs-e20.el b/mcs-e20.el
index 6d54a01..00b621e 100644
--- a/mcs-e20.el
+++ b/mcs-e20.el
@@ -179,6 +179,7 @@ Return nil if corresponding MIME-charset is not found."
 
 (require 'mcs-20)
 
-(provide 'mcs-e20)
+(require 'product)
+(product-provide (provide 'mcs-e20) (require 'apel-ver))
 
 ;;; mcs-e20.el ends here
diff --git a/mcs-ltn1.el b/mcs-ltn1.el
index 643bb2a..17a93bb 100644
--- a/mcs-ltn1.el
+++ b/mcs-ltn1.el
@@ -104,6 +104,7 @@
 ;;; @ end
 ;;;
 
-(provide 'mcs-ltn1)
+(require 'product)
+(product-provide (provide 'mcs-ltn1) (require 'apel-ver))
 
 ;;; mcs-ltn1.el ends here
diff --git a/mcs-nemacs.el b/mcs-nemacs.el
index 388db8a..0251369 100644
--- a/mcs-nemacs.el
+++ b/mcs-nemacs.el
@@ -122,6 +122,7 @@
 ;;; @ end
 ;;;
 
-(provide 'mcs-nemacs)
+(require 'product)
+(product-provide (provide 'mcs-nemacs) (require 'apel-ver))
 
 ;;; mcs-nemacs.el ends here
diff --git a/mcs-om.el b/mcs-om.el
index 6f469d8..17f6ec1 100644
--- a/mcs-om.el
+++ b/mcs-om.el
@@ -237,6 +237,7 @@ It must be symbol.")
 ;;; @ end
 ;;;
 
-(provide 'mcs-om)
+(require 'product)
+(product-provide (provide 'mcs-om) (require 'apel-ver))
 
 ;;; mcs-om.el ends here
diff --git a/mcs-xm.el b/mcs-xm.el
index d3de9cf..0fd6d8d 100644
--- a/mcs-xm.el
+++ b/mcs-xm.el
@@ -159,6 +159,7 @@ Return nil if corresponding MIME-charset is not found."
 ;;; @ end
 ;;;
 
-(provide 'mcs-xm)
+(require 'product)
+(product-provide (provide 'mcs-xm) (require 'apel-ver))
 
 ;;; mcs-xm.el ends here
diff --git a/mcs-xmu.el b/mcs-xmu.el
index dadc2cf..e80c925 100644
--- a/mcs-xmu.el
+++ b/mcs-xmu.el
@@ -95,6 +95,7 @@ works for only decoding MIME-CHARSET.  If it is nil, size is unlimited."
 ;;; @ end
 ;;;
 
-(provide 'mcs-xmu)
+(require 'product)
+(product-provide (provide 'mcs-xmu) (require 'apel-ver))
 
 ;;; mcs-xmu.el ends here
diff --git a/mule-caesar.el b/mule-caesar.el
index 4bc32ea..e03fa20 100644
--- a/mule-caesar.el
+++ b/mule-caesar.el
@@ -80,6 +80,7 @@ for 96 or 96x96 graphic character set)."
 	  )))))
 
 
-(provide 'mule-caesar)
+(require 'product)
+(product-provide (provide 'mule-caesar) (require 'apel-ver))
 
 ;;; mule-caesar.el ends here
diff --git a/path-util.el b/path-util.el
index bfdf7bb..d774642 100644
--- a/path-util.el
+++ b/path-util.el
@@ -197,6 +197,7 @@ If PATHS is omitted, `load-path' is used."
 ;;; @ end
 ;;;
 
-(provide 'path-util)
+(require 'product)
+(product-provide (provide 'path-util) (require 'apel-ver))
 
 ;;; path-util.el ends here
diff --git a/pccl-20.el b/pccl-20.el
index 3782b7c..62c1c39 100644
--- a/pccl-20.el
+++ b/pccl-20.el
@@ -151,6 +151,7 @@ If CCL-PROG is symbol, it is dereferenced.
 ;;; @ end
 ;;;
 
-(provide 'pccl-20)
+(require 'product)
+(product-provide (provide 'pccl-20) (require 'apel-ver))
 
 ;;; pccl-20.el ends here
diff --git a/pccl-om.el b/pccl-om.el
index 205bce7..3ab0378 100644
--- a/pccl-om.el
+++ b/pccl-om.el
@@ -125,6 +125,7 @@ If CCL-PROG is symbol, it is dereferenced.
 ;;; @ end
 ;;;
 
-(provide 'pccl-om)
+(require 'product)
+(product-provide (provide 'pccl-om) (require 'apel-ver))
 
 ;;; pccl-om.el ends here
diff --git a/pccl.el b/pccl.el
index 9397b9a..c696f75 100644
--- a/pccl.el
+++ b/pccl.el
@@ -71,6 +71,7 @@
 ;;; @ end
 ;;;
 
-(provide 'pccl)
+(require 'product)
+(product-provide (provide 'pccl) (require 'apel-ver))
 
 ;;; pccl.el ends here
diff --git a/pces-20.el b/pces-20.el
index 51335a7..6531710 100644
--- a/pces-20.el
+++ b/pces-20.el
@@ -233,6 +233,7 @@ applied to `coding-system-for-write'."
 ;;; @ end
 ;;;
 
-(provide 'pces-20)
+(require 'product)
+(product-provide (provide 'pces-20) (require 'apel-ver))
 
 ;;; pces-20.el ends here
diff --git a/pces-e20.el b/pces-e20.el
index 6516157..724f8af 100644
--- a/pces-e20.el
+++ b/pces-e20.el
@@ -42,7 +42,7 @@
 ;;; @ end
 ;;;
 
-
-(provide 'pces-e20)
+(require 'product)
+(product-provide (provide 'pces-e20) (require 'apel-ver))
 
 ;;; pces-e20.el ends here
diff --git a/pces-e20_2.el b/pces-e20_2.el
index 8fa59f7..5f97e04 100644
--- a/pces-e20_2.el
+++ b/pces-e20_2.el
@@ -144,6 +144,7 @@ be applied to `coding-system-for-read'."
 ;;; @ end
 ;;;
 
-(provide 'pces-e20_2)
+(require 'product)
+(product-provide (provide 'pces-e20_2) (require 'apel-ver))
 
 ;;; pces-e20_2.el ends here
diff --git a/pces-nemacs.el b/pces-nemacs.el
index 6cfebfe..6f29ea1 100644
--- a/pces-nemacs.el
+++ b/pces-nemacs.el
@@ -270,6 +270,7 @@ applied to `kanji-fileio-code'. [emu-nemacs.el]"
 ;;; @ end
 ;;;
 
-(provide 'pces-nemacs)
+(require 'product)
+(product-provide (provide 'pces-nemacs) (require 'apel-ver))
 
 ;;; pces-nemacs.el ends here
diff --git a/pces-om.el b/pces-om.el
index fdbb648..788498e 100644
--- a/pces-om.el
+++ b/pces-om.el
@@ -307,6 +307,7 @@ conversion except for line-break code."
 ;;; @ end
 ;;;
 
-(provide 'pces-om)
+(require 'product)
+(product-provide (provide 'pces-om) (require 'apel-ver))
 
 ;;; pces-om.el ends here
diff --git a/pces-raw.el b/pces-raw.el
index a7bed6e..54c751d 100644
--- a/pces-raw.el
+++ b/pces-raw.el
@@ -166,6 +166,7 @@ code conversion will not take place."
 ;;; @ end
 ;;;
 
-(provide 'pces-raw)
+(require 'product)
+(product-provide (provide 'pces-raw) (require 'apel-ver))
 
 ;;; pces-raw.el ends here
diff --git a/pces-xfc.el b/pces-xfc.el
index 8944509..1200993 100644
--- a/pces-xfc.el
+++ b/pces-xfc.el
@@ -42,6 +42,7 @@
 ;;; @ end
 ;;;
 
-(provide 'pces-xfc)
+(require 'product)
+(product-provide (provide 'pces-xfc) (require 'apel-ver))
 
 ;;; pces-xfc.el ends here
diff --git a/pces-xm.el b/pces-xm.el
index 956c5c5..083fc56 100644
--- a/pces-xm.el
+++ b/pces-xm.el
@@ -72,6 +72,7 @@
 ;;; @ end
 ;;;
 
-(provide 'pces-xm)
+(require 'product)
+(product-provide (provide 'pces-xm) (require 'apel-ver))
 
 ;;; pces-xm.el ends here
diff --git a/pces.el b/pces.el
index 283951c..85bce8c 100644
--- a/pces.el
+++ b/pces.el
@@ -53,6 +53,7 @@
 ;;; @ end
 ;;;
 
-(provide 'pces)
+(require 'product)
+(product-provide (provide 'pces) (require 'apel-ver))
 
 ;;; pces.el ends here
diff --git a/pcustom.el b/pcustom.el
index 28a9321..bd5099e 100644
--- a/pcustom.el
+++ b/pcustom.el
@@ -68,6 +68,7 @@
       ;; load emulation version of "new custom".
       (require 'tinycustom)))
 
-(provide 'pcustom)
+(require 'product)
+(product-provide (provide 'pcustom) (require 'apel-ver))
 
 ;;; pcustom.el ends here
diff --git a/poe-18.el b/poe-18.el
index 7ee62ce..27dcc96 100644
--- a/poe-18.el
+++ b/poe-18.el
@@ -34,7 +34,10 @@
 
 ;;; Code:
 
-(provide 'poe-18)			; beware of circular dependency.
+;; beware of circular dependency.
+(require 'product)
+(product-provide (provide 'poe-18) (require 'apel-ver))
+
 (require 'poe)				; load definitions of `*-maybe'.
 
 ;;; @ for EMACS 18.55
diff --git a/poe-xemacs.el b/poe-xemacs.el
index a6b8516..cfa7761 100644
--- a/poe-xemacs.el
+++ b/poe-xemacs.el
@@ -148,6 +148,7 @@ FILE should be the name of a library, with no directory name."
 ;;; @ end
 ;;;
 
-(provide 'poe-xemacs)
+(require 'product)
+(product-provide (provide 'poe-xemacs) (require 'apel-ver))
 
 ;;; poe-xemacs.el ends here
diff --git a/poe.el b/poe.el
index 1059128..9812800 100644
--- a/poe.el
+++ b/poe.el
@@ -29,7 +29,8 @@
 
 ;;; Code:
 
-(provide 'poe)
+(require 'product)
+(product-provide (provide 'poe) (require 'apel-ver))
 
 (or (boundp 'current-load-list) (setq current-load-list nil))
 
diff --git a/poem-e20.el b/poem-e20.el
index 57a6378..ac2a17e 100644
--- a/poem-e20.el
+++ b/poem-e20.el
@@ -59,6 +59,7 @@ in the region between START and END."
   (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
diff --git a/poem-e20_2.el b/poem-e20_2.el
index 2f9fc77..62518e6 100644
--- a/poem-e20_2.el
+++ b/poem-e20_2.el
@@ -87,6 +87,7 @@ but the contents viewed as characters do change.
 ;;; @ end
 ;;;
 
-(provide 'poem-e20_2)
+(require 'product)
+(product-provide (provide 'poem-e20_2) (require 'apel-ver))
 
 ;;; poem-e20_2.el ends here
diff --git a/poem-e20_3.el b/poem-e20_3.el
index df9af37..9beb320 100644
--- a/poem-e20_3.el
+++ b/poem-e20_3.el
@@ -60,6 +60,7 @@
 ;;; @ end
 ;;;
 
-(provide 'poem-e20_3)
+(require 'product)
+(product-provide (provide 'poem-e20_3) (require 'apel-ver))
 
 ;;; poem-e20_3.el ends here
diff --git a/poem-ltn1.el b/poem-ltn1.el
index 19bb3e0..3735173 100644
--- a/poem-ltn1.el
+++ b/poem-ltn1.el
@@ -146,6 +146,7 @@ Optional non-nil arg START-COLUMN specifies the starting column.
 ;;; @ end
 ;;;
 
-(provide 'poem-ltn1)
+(require 'product)
+(product-provide (provide 'poem-ltn1) (require 'apel-ver))
 
 ;;; poem-ltn1.el ends here
diff --git a/poem-nemacs.el b/poem-nemacs.el
index 5bd8915..7016426 100644
--- a/poem-nemacs.el
+++ b/poem-nemacs.el
@@ -213,6 +213,7 @@ Optional non-nil arg START-COLUMN specifies the starting column.
 ;;; @ end
 ;;;
 
-(provide 'poem-nemacs)
+(require 'product)
+(product-provide (provide 'poem-nemacs) (require 'apel-ver))
 
 ;;; poem-nemacs.el ends here
diff --git a/poem-om.el b/poem-om.el
index 39460ad..54dc3c5 100644
--- a/poem-om.el
+++ b/poem-om.el
@@ -158,6 +158,7 @@ Optional non-nil arg START-COLUMN specifies the starting column.
 ;;; @ end
 ;;;
 
-(provide 'poem-om)
+(require 'product)
+(product-provide (provide 'poem-om) (require 'apel-ver))
 
 ;;; poem-om.el ends here
diff --git a/poem-xm.el b/poem-xm.el
index 7f85b96..7dd4244 100644
--- a/poem-xm.el
+++ b/poem-xm.el
@@ -81,6 +81,7 @@ but the contents viewed as characters do change.
 ;;; @ end
 ;;;
 
-(provide 'poem-xm)
+(require 'product)
+(product-provide (provide 'poem-xm) (require 'apel-ver))
 
 ;;; poem-xm.el ends here
diff --git a/poem.el b/poem.el
index f65556d..ec752a3 100644
--- a/poem.el
+++ b/poem.el
@@ -94,6 +94,7 @@ N defaults to 0 if omitted. [XEmacs-mule emulating function]"
 ;;; @ end
 ;;;
 
-(provide 'poem)
+(require 'product)
+(product-provide (provide 'poem) (require 'apel-ver))
 
 ;;; poem.el ends here
diff --git a/richtext.el b/richtext.el
index 07e2f64..def5c28 100644
--- a/richtext.el
+++ b/richtext.el
@@ -179,6 +179,7 @@ Return value is \(begin end name positive-p), or nil if none was found."
 ;;; @ end
 ;;;
 
-(provide 'richtext)
+(require 'product)
+(product-provide (provide 'richtext) (require 'apel-ver))
 
 ;;; richtext.el ends here
diff --git a/static.el b/static.el
index 039fc06..b64440d 100644
--- a/static.el
+++ b/static.el
@@ -83,6 +83,7 @@ The variable SYMBOL can be referenced at either compile-time or run-time."
 ;;; @ end
 ;;;
 
-(provide 'static)
+(require 'product)
+(product-provide (provide 'static) (require 'apel-ver))
 
 ;;; static.el ends here
diff --git a/time-stamp.el b/time-stamp.el
index d986eaf..81d0d0b 100644
--- a/time-stamp.el
+++ b/time-stamp.el
@@ -274,7 +274,8 @@ The first character of DD is space if the value is less than 10."
     (concat (substring date 11 13)
 	    (substring date 14 16))))
 
-(provide 'time-stamp)
+(require 'product)
+(product-provide (provide 'time-stamp) (require 'apel-ver))
 
 ;;; time-stamp.el ends here
 
diff --git a/tinycustom.el b/tinycustom.el
index 54a6678..5df4e37 100644
--- a/tinycustom.el
+++ b/tinycustom.el
@@ -157,7 +157,9 @@ The third argument DOC is a documentation string for the widget.
 This is a nop define-widget only for emulating purpose."
   nil)
 
-(provide 'tinycustom)
 (provide 'custom)
 
+(require 'product)
+(product-provide (provide 'tinycustom) (require 'apel-ver))
+
 ;;; tinycustom.el ends here.
diff --git a/tinyrich.el b/tinyrich.el
index 3929205..2cfee07 100644
--- a/tinyrich.el
+++ b/tinyrich.el
@@ -163,4 +163,7 @@
 ;;; @ end
 ;;;
 
-(provide 'tinyrich)
+(require 'product)
+(product-provide (provide 'tinyrich) (require 'apel-ver))
+
+;; tinyrich.el ends here.