;;; 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 <shuhei@aqua.ocn.ne.jp>
;; Keywords: compatibility
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
`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
(require 'product)
(product-provide (provide 'tinycustom) (require 'apel-ver))
-;;; tinycustom.el ends here.
+;;; tinycustom.el ends here