Skip to content
Browse files

Add product information.

  • Loading branch information...
1 parent aebf49c commit d52455a8bcacb47d786ac0ddd89c71fba292ab4c keiichi committed
Showing with 161 additions and 202 deletions.
  1. +2 −1 alist.el
  2. +2 −1 atype.el
  3. +2 −1 broken.el
  4. +2 −1 calist.el
  5. +2 −1 emu-mule.el
  6. +2 −1 emu.el
  7. +2 −1 env.el
  8. +15 −116 file-detect.el
  9. +2 −1 filename.el
  10. +2 −1 install.el
  11. +2 −1 inv-18.el
  12. +2 −1 inv-19.el
  13. +2 −1 inv-xemacs.el
  14. +2 −1 invisible.el
  15. +4 −1 localhook.el
  16. +2 −1 mcharset.el
  17. +2 −1 mcs-20.el
  18. +2 −1 mcs-e20.el
  19. +2 −1 mcs-ltn1.el
  20. +2 −1 mcs-nemacs.el
  21. +2 −1 mcs-om.el
  22. +2 −1 mcs-xm.el
  23. +2 −1 mcs-xmu.el
  24. +2 −1 mule-caesar.el
  25. +2 −1 path-util.el
  26. +2 −1 pccl-20.el
  27. +2 −1 pccl-om.el
  28. +2 −1 pccl.el
  29. +2 −1 pces-20.el
  30. +2 −2 pces-e20.el
  31. +2 −1 pces-e20_2.el
  32. +2 −1 pces-nemacs.el
  33. +2 −1 pces-om.el
  34. +2 −1 pces-raw.el
  35. +2 −1 pces-xfc.el
  36. +2 −1 pces-xm.el
  37. +2 −1 pces.el
  38. +2 −1 pcustom.el
  39. +4 −1 poe-18.el
  40. +2 −1 poe-xemacs.el
  41. +2 −1 poe.el
  42. +2 −1 poem-e20.el
  43. +2 −1 poem-e20_2.el
  44. +2 −1 poem-e20_3.el
  45. +2 −1 poem-ltn1.el
  46. +2 −1 poem-nemacs.el
  47. +2 −1 poem-om.el
  48. +2 −1 poem-xm.el
  49. +2 −1 poem.el
  50. +35 −33 richtext.el
  51. +2 −1 static.el
  52. +2 −1 time-stamp.el
  53. +3 −1 tinycustom.el
  54. +4 −1 tinyrich.el
View
3 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
View
3 atype.el
@@ -185,6 +185,7 @@
;;; @ end
;;;
-(provide 'atype)
+(require 'product)
+(product-provide (provide 'atype) (require 'apel-ver))
;;; atype.el ends here
View
3 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
View
3 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
View
3 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
View
3 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
View
3 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
View
131 file-detect.el
@@ -1,13 +1,13 @@
-;;; file-detect.el --- Emacs Lisp file detection utility
+;;; file-detect.el --- Path management or file detection utility
-;; Copyright (C) 1996 Free Software Foundation, Inc.
+;; Copyright (C) 1996,1997 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version:
-;; $Id$
-;; Keywords: install, module
+;; Version: $Id$
+;; Keywords: file detection, install, module
+;; Status: obsoleted
-;; This file is part of tl (Tiny Library).
+;; This file is part of APEL (A Portable Emacs Library).
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
@@ -20,121 +20,20 @@
;; General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with This program; see the file COPYING. If not, write to
-;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; 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.
-;;; Code:
-
-(defvar default-load-path load-path)
-
-(defun add-path (path &rest options)
- "Add PATH to `load-path' if it exists under `default-load-path'
-directories and it does not exist in `load-path'.
-
-You can use following PATH styles:
- load-path relative: \"PATH/\"
- (it is searched from `defaul-load-path')
- home directory relative: \"~/PATH/\" \"~USER/PATH/\"
- absolute path: \"/HOO/BAR/BAZ/\"
-
-You can specify following OPTIONS:
- 'all-paths search from `load-path'
- instead of `default-load-path'
- 'append add PATH to the last of `load-path'
+;;; Commentary:
-\[file-detect.el]"
- (let ((rest (if (memq 'all-paths options)
- load-path
- default-load-path))
- p)
- (if (and (catch 'tag
- (while rest
- (setq p (expand-file-name path (car rest)))
- (if (file-directory-p p)
- (throw 'tag p)
- )
- (setq rest (cdr rest))
- ))
- (not (member p load-path))
- )
- (setq load-path
- (if (memq 'append options)
- (append load-path (list p))
- (cons p load-path)
- ))
- )))
-
-(defun get-latest-path (pat &optional all-paths)
- "Return latest directory in default-load-path
-which is matched to regexp PAT.
-If optional argument ALL-PATHS is specified,
-it is searched from all of load-path instead of default-load-path.
-\[file-detect.el]"
- (catch 'tag
- (let ((paths (if all-paths
- load-path
- default-load-path))
- dir)
- (while (setq dir (car paths))
- (let ((files (sort (directory-files dir t pat t)
- (function file-newer-than-file-p)))
- file)
- (while (setq file (car files))
- (if (file-directory-p file)
- (throw 'tag file)
- )
- (setq files (cdr files))
- ))
- (setq paths (cdr paths))
- ))))
-
-(defun file-installed-p (file &optional paths)
- "Return t if FILE exists in PATHS.
-If PATHS is omitted, `load-path' is used. [file-detect.el]"
- (if (null paths)
- (setq paths load-path)
- )
- (catch 'tag
- (let (path)
- (while paths
- (setq path (expand-file-name file (car paths)))
- (if (file-exists-p path)
- (throw 'tag path)
- )
- (setq paths (cdr paths))
- ))))
-
-(defun module-installed-p (module &optional paths)
- "Return t if module is provided or exists in PATHS.
-If PATHS is omitted, `load-path' is used. [file-detect.el]"
- (or (featurep module)
- (let ((name (symbol-name module)))
- (if (null paths)
- (setq paths load-path)
- )
- (catch 'tag
- (while paths
- (let ((file (expand-file-name name (car paths))))
- (let ((elc-file (concat file ".elc")))
- (if (file-exists-p elc-file)
- (throw 'tag elc-file)
- ))
- (let ((el-file (concat file ".el")))
- (if (file-exists-p el-file)
- (throw 'tag el-file)
- ))
- (if (file-exists-p file)
- (throw 'tag file)
- )
- )
- (setq paths (cdr paths))
- )))))
+;; This file is existed only for compatibility. Please use
+;; path-util.el instead of this file.
+;;; Code:
-;;; @ end
-;;;
+(require 'path-util)
-(provide 'file-detect)
+(require 'product)
+(product-provide (provide 'file-detect) (require 'apel-ver))
;;; file-detect.el ends here
View
3 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
View
3 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
View
3 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
View
3 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
View
3 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
View
3 invisible.el
@@ -40,6 +40,7 @@
;;; @ end
;;;
-(provide 'invisible)
+(require 'product)
+(product-provide (provide 'invisible) (require 'apel-ver))
;;; invisible.el ends here
View
5 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.
View
3 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
View
3 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
View
3 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
View
3 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
View
3 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
View
3 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
View
3 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
View
3 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
View
3 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
View
3 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
View
3 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
View
3 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
View
3 pccl.el
@@ -71,6 +71,7 @@
;;; @ end
;;;
-(provide 'pccl)
+(require 'product)
+(product-provide (provide 'pccl) (require 'apel-ver))
;;; pccl.el ends here
View
3 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
View
4 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
View
3 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
View
3 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
View
3 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
View
3 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
View
3 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
View
3 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
View
3 pces.el
@@ -53,6 +53,7 @@
;;; @ end
;;;
-(provide 'pces)
+(require 'product)
+(product-provide (provide 'pces) (require 'apel-ver))
;;; pces.el ends here
View
3 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
View
5 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
View
3 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
View
3 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))
View
3 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
View
3 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
View
3 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
View
3 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
View
3 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
View
3 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
View
3 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
View
3 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
View
68 richtext.el
@@ -1,30 +1,30 @@
-;;;
;;; richtext.el -- read and save files in text/richtext format
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995 MORIOKA Tomohiko
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Created: 1995/7/15
-;;; Version:
-;;; $Id$
-;;; Keywords: wp, faces, MIME, multimedia
-;;;
-;;; This file is part of GNU Emacs.
-;;;
-;;; GNU Emacs is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2, or (at your option)
-;;; any later version.
-;;;
-;;; GNU Emacs is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;;; GNU General Public License for more details.
-;;;
-;;; 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, 675 Mass Ave, Cambridge, MA 02139, USA.
+
+;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
+
+;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Created: 1995/7/15
+;; Version: $Id$
+;; Keywords: wp, faces, MIME, multimedia
+
+;; This file is not part of GNU Emacs yet.
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or (at
+;; your option) any later version.
+
+;; This program is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+
+;; 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.
+
+;;; Code:
(require 'enriched)
@@ -76,6 +76,7 @@ of this structure.")
;;; @ encoder
;;;
+;;;###autoload
(defun richtext-encode (from to)
(if enriched-verbose (message "Richtext: encoding document..."))
(save-restriction
@@ -136,6 +137,7 @@ Return value is \(begin end name positive-p), or nil if none was found."
))
))))
+;;;###autoload
(defun richtext-decode (from to)
(if enriched-verbose (message "Richtext: decoding document..."))
(save-excursion
@@ -143,7 +145,7 @@ Return value is \(begin end name positive-p), or nil if none was found."
(narrow-to-region from to)
(goto-char from)
(let ((file-width (enriched-get-file-width))
- (use-hard-newlines t) pc nc)
+ (use-hard-newlines t))
(enriched-remove-header)
(goto-char from)
@@ -164,11 +166,8 @@ Return value is \(begin end name positive-p), or nil if none was found."
'richtext-next-annotation)
;; Fill paragraphs
- (if (or (and file-width ; possible reasons not to fill:
- (= file-width (enriched-text-width))) ; correct wd.
- (null enriched-fill-after-visiting) ; never fill
- (and (eq 'ask enriched-fill-after-visiting) ; asked & declined
- (not (y-or-n-p "Re-fill for current display width? "))))
+ (if (and file-width ; possible reasons not to fill:
+ (= file-width (enriched-text-width))) ; correct wd.
;; Minimally, we have to insert indentation and justification.
(enriched-insert-indentation)
(if enriched-verbose (message "Filling paragraphs..."))
@@ -180,4 +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
View
3 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
View
3 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
View
4 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.
View
5 tinyrich.el
@@ -163,4 +163,7 @@
;;; @ end
;;;
-(provide 'tinyrich)
+(require 'product)
+(product-provide (provide 'tinyrich) (require 'apel-ver))
+
+;; tinyrich.el ends here.

0 comments on commit d52455a

Please sign in to comment.
Something went wrong with that request. Please try again.