Update.

[elisp/apel.git] / tinycustom.el

diff --git a/tinycustom.el b/tinycustom.el
index 04911d2..0a19686 100644 (file)
--- a/tinycustom.el
+++ b/tinycustom.el
@@ -4,8 +4,6 @@
 
 ;; Author: Mikio Nakajima <minakaji@osaka.email.ne.jp>
 ;; Maintainer: Mikio Nakajima <minakaji@osaka.email.ne.jp>
-;; Version: $Id: tinycustom.el,v 1.3 1999-03-25 00:18:05 yamaoka Exp $
-;; Last Modified: $Date: 1999-03-25 00:18:05 $
 ;; Keywords: emulating, custom
 
 ;; This file is part of APEL (A Portable Emacs Library).
@@ -27,8 +25,8 @@
 
 ;;; 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.
 ;; DEFFACE only makes a face.
@@ -44,7 +42,7 @@ SYMBOL does not need to be quoted.
 Third arg DOC is the group documentation.
 
 This is a nop defgroup only for emulating purpose."
-  nil )
+  nil)
     
 (defmacro-maybe defcustom (symbol value doc &rest args) 
   "Declare SYMBOL as a customizable variable that defaults to VALUE.
@@ -52,23 +50,26 @@ 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 (, symbol) (, value) (, doc))))
     
-(defmacro-maybe defface (face 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.
-
-This is a defface which only makes face FACE for emulating purpose."
-  (` (make-face (, face))) )
-
-(defmacro-maybe define-widget (name class doc)
+\[custom emulating macro]"
+      ((fboundp 'make-face)
+       (` (make-face (quote (, face)))))
+      (t
+       ;; do nothing.
+       ))
+
+(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 )
+  nil)
 
 (provide 'tinycustom)
 (provide 'custom)
 
-;; end of tinycustom.el
+;;; tinycustom.el ends here.