;; (custom.el bundled with v19 is old; does not have following macros.)
;;
;; DEFCUSTOM below has the same effect as the original DEFVAR has.
-;; DEFFACE below interprets almost all arguments.
+;; DEFFACE below interprets almost of all arguments.
;; DEFGROUP and DEFINE-WIDGET below are just nop macro.
;;; Code:
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
SPEC should be an alist of the form ((DISPLAY ATTS)...).
-ATTS is of the form (KEY TYPE SET GET) where KEY is a symbol of
-`:foreground', `:background', `:bold', `:italic' or `:underline'.
-The other KEYs are ignored.
+ATTS is of the form (KEY VALUE) where KEY is a symbol of `:foreground',
+`:background', `:bold', `:italic' or `:underline'. The other KEYs are
+ignored.
The ATTS of the first entry in SPEC where the DISPLAY matches the
frame should take effect in that frame. DISPLAY can either be the
`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
(provide 'tinycustom)
(provide 'custom)
-;;; tinycustom.el ends here.
+;;; tinycustom.el ends here