Update.

[elisp/apel.git] / tinycustom.el

diff --git a/tinycustom.el b/tinycustom.el
index 47789ad..0a19686 100644 (file)
--- a/tinycustom.el
+++ b/tinycustom.el
@@ -1,13 +1,12 @@
 ;; tinycustom.el -- a tiny custom.el for emulating purpose.
+
 ;; Copyright (C) 1999 Mikio Nakajima <minakaji@osaka.email.ne.jp>
 
 ;; Author: Mikio Nakajima <minakaji@osaka.email.ne.jp>
 ;; Maintainer: Mikio Nakajima <minakaji@osaka.email.ne.jp>
-;; Version: $Id: tinycustom.el,v 1.1 1999-03-16 11:51:30 morioka Exp $
 ;; Keywords: emulating, custom
-;; Last Modified: $Date: 1999-03-16 11:51:30 $
 
-;; This file is not part of APEL (A Portable Emacs Library) yet.
+;; This file is part of APEL (A Portable Emacs Library).
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
@@ -25,12 +24,16 @@
 ;; Boston, MA 02111-1307, USA.
 
 ;;; 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:
+
 (require 'poe)
 
 (defmacro-maybe defgroup (symbol members doc &rest args)
@@ -38,8 +41,8 @@
 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.
@@ -47,15 +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 (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 (quote (, 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.