From: shuhei Date: Mon, 20 Dec 1999 20:57:37 +0000 (+0000) Subject: checkdoc. X-Git-Tag: apel-10_0~20 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c525f4c52e3cefd3527fb55b297be0be6caa3e60;p=elisp%2Fapel.git checkdoc. --- diff --git a/localhook.el b/localhook.el index f8e59cc..79bc2cc 100644 --- a/localhook.el +++ b/localhook.el @@ -1,7 +1,6 @@ ;;; localhook.el --- local hook variable support in emacs-lisp. -;; Copyright (C) 1985, 1986, 1992, 1994, 1995 Free Software Foundation, Inc. -;; Copyright (C) 1999 Shuhei KOBAYASHI +;; Copyright (C) 1985,86,92,94,95,1999 Free Software Foundation, Inc. ;; Author: Shuhei KOBAYASHI ;; Keywords: compatibility diff --git a/tinycustom.el b/tinycustom.el index 5df4e37..6b04170 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 @@ -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