From: shuhei Date: Fri, 12 Nov 1999 12:14:15 +0000 (+0000) Subject: checkdoc. X-Git-Tag: apel-shubit-10_0~32 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;ds=sidebyside;h=d1a81e9ad340b5bd6194d69eac25e463c85ed10d;p=elisp%2Fapel.git checkdoc. --- diff --git a/tinycustom.el b/tinycustom.el index 54a6678..5bea63c 100644 --- a/tinycustom.el +++ b/tinycustom.el @@ -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 @@ -160,4 +158,4 @@ This is a nop define-widget only for emulating purpose." (provide 'tinycustom) (provide 'custom) -;;; tinycustom.el ends here. +;;; tinycustom.el ends here