X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tinycustom.el;h=3d32c000de0c638864ad2e3f6ff22229503021fa;hb=e7337531aaf90be2649d5dd0e0d98681d7f1d72a;hp=0a8e97d9684b2045243d8b464dd95b79658d82eb;hpb=10a702f45266811c6ae6ffbe8f3db4820abc9a6b;p=elisp%2Fapel.git

diff --git a/tinycustom.el b/tinycustom.el
index 0a8e97d..3d32c00 100644
--- a/tinycustom.el
+++ b/tinycustom.el
@@ -2,8 +2,8 @@
 
 ;; Copyright (C) 1999 Mikio Nakajima <minakaji@osaka.email.ne.jp>
 
-;; Author: Mikio Nakajima <minakaji@osaka.email.ne.jp>
-;; Maintainer: Mikio Nakajima <minakaji@osaka.email.ne.jp>
+;; Author: Mikio Nakajima  <minakaji@osaka.email.ne.jp>
+;;         Katsumi Yamaoka <yamaoka@jpl.org>
 ;; Keywords: emulating, custom
 
 ;; This file is part of APEL (A Portable Emacs Library).
@@ -29,7 +29,7 @@
 ;; (custom.el bundled with v19 is old; does not have following macros.)
 ;;
 ;; DEFCUSTOM below has the same effect as the original DEFVAR has.
-;; DEFFACE below interprets almost all arguments.
+;; DEFFACE below interprets almost of all arguments.
 ;; DEFGROUP and DEFINE-WIDGET below are just nop macro.
 
 ;;; Code:
@@ -43,15 +43,15 @@ Third arg DOC is the group documentation.
 
 This is a nop defgroup only for emulating purpose."
   nil)
-    
-(defmacro-maybe defcustom (symbol value doc &rest args) 
+
+(defmacro-maybe defcustom (symbol value doc &rest args)
   "Declare SYMBOL as a customizable variable that defaults to VALUE.
 DOC is the variable documentation.
 
 This is a defcustom only for emulating purpose.
 Its effect is just as same as that of defvar."
   (` (defvar (, symbol) (, value) (, doc))))
-    
+
 (defvar-maybe frame-background-mode nil
   "*The brightness of the background.
 Set this to the symbol dark if your background color is dark, light if
@@ -78,9 +78,9 @@ The following KEYWORDs are defined:
 
 SPEC should be an alist of the form ((DISPLAY ATTS)...).
 
-ATTS is of the form (KEY TYPE SET GET) where KEY is a symbol of
-`:foreground', `:background', `:bold', `:italic' or `:underline'.
-The other KEYs are ignored.
+ATTS is of the form (KEY VALUE) where KEY is a symbol of `:foreground',
+`:background', `:bold', `:italic' or `:underline'.  The other KEYs are
+ignored.
 
 The ATTS of the first entry in SPEC where the DISPLAY matches the
 frame should take effect in that frame.  DISPLAY can either be the
@@ -98,9 +98,7 @@ match one of the ITEM.  The following REQ are defined:
 
 `background' (the value of `frame-background-mode', what color is used
 for the background text)
-  Should be one of `light' or `dark'.
-
-\[custom emulating macro]"
+  Should be one of `light' or `dark'."
   ((fboundp 'make-face)
    (` (let ((name (quote (, face))))
 	(or
@@ -157,7 +155,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)
 
-;;; tinycustom.el ends here.
+(require 'product)
+(product-provide (provide 'tinycustom) (require 'apel-ver))
+
+;;; tinycustom.el ends here