;;; Commentary:
-;; Purpose of this program is emulating for who does not have
-;; `custom.el'.
+;; Purpose of this program is emulating for who does not have "custom".
+;; (custom.el bundled with v19 is old; does not have following macros.)
+;;
;; DEFCUSTOM below has the same effect as the original DEFVAR has.
-;; DEFGROUP and DEFFACE below are just nop macro.
+;; DEFFACE only makes a face.
+;; DEFGROUP and DEFINE-WIDGET below are just nop macro.
;;; Code:
SYMBOL does not need to be quoted.
Third arg DOC is the group documentation.
-This is a nop defgroup only for emulating purpose.."
- nil )
+This is a nop defgroup only for emulating purpose."
+ nil)
(defmacro-maybe defcustom (symbol value doc &rest args)
"Declare SYMBOL as a customizable variable that defaults to VALUE.
This is a defcustom only for emulating purpose.
Its effect is just as same as that of defvar."
- (` (defvar (, symbol) (, value) (, doc))) )
+ (` (defvar (, symbol) (, value) (, doc))))
-(defmacro-maybe defface (symbol value doc &rest args)
- "Declare FACE as a customizable face that defaults to SPEC.
+(defmacro-maybe-cond defface (face value doc &rest args)
+ "Declare FACE as a customizable face that defaults to SPEC.
FACE does not need to be quoted.
+\[custom emulating macro]"
+ ((fboundp 'make-face)
+ (` (make-face (, face))))
+ (t
+ ;; do nothing.
+ ))
-This is a nop defface only for emulating purpose."
- nil )
+(defmacro-maybe define-widget (name class doc &rest args)
+ "Define a new widget type named NAME from CLASS.
+The third argument DOC is a documentation string for the widget.
+
+This is a nop define-widget only for emulating purpose."
+ nil)
(provide 'tinycustom)
(provide 'custom)
-;; end of tinycustom.el
+;;; tinycustom.el ends here.