X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tinycustom.el;h=3d32c000de0c638864ad2e3f6ff22229503021fa;hb=bbfd1b61ea68974b54f7229c261c160704ee5728;hp=5df4e375c76c4cde11608d35ba3ac8cf0c24175d;hpb=8ea0cf57c248b6a4ba2f73288cc1b7cad582e171;p=elisp%2Fapel.git diff --git a/tinycustom.el b/tinycustom.el index 5df4e37..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 @@ -162,4 +160,4 @@ This is a nop define-widget only for emulating purpose." (require 'product) (product-provide (provide 'tinycustom) (require 'apel-ver)) -;;; tinycustom.el ends here. +;;; tinycustom.el ends here