X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tinycustom.el;h=3d32c000de0c638864ad2e3f6ff22229503021fa;hb=bbfd1b61ea68974b54f7229c261c160704ee5728;hp=54a6678231bc9f78e2f5a11fa8c518b0193ba82a;hpb=6f754a004f229d0b4e0b610275643f72cc96e179;p=elisp%2Fapel.git diff --git a/tinycustom.el b/tinycustom.el index 54a6678..3d32c00 100644 --- a/tinycustom.el +++ b/tinycustom.el @@ -2,8 +2,8 @@ ;; Copyright (C) 1999 Mikio Nakajima -;; Author: Mikio Nakajima -;; Maintainer: Mikio Nakajima +;; Author: Mikio Nakajima +;; Katsumi Yamaoka ;; Keywords: emulating, custom ;; This file is part of APEL (A Portable Emacs Library). @@ -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 @@ -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