From: morioka Date: Tue, 16 Mar 1999 11:51:30 +0000 (+0000) Subject: Add tinycustom.el and pcustom.el from Mikio Nakajima X-Git-Tag: apel-9_15~7 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ea06cceb420decbac27b2e55409c8b105d55a844;p=elisp%2Fapel.git Add tinycustom.el and pcustom.el from Mikio Nakajima . --- diff --git a/ChangeLog b/ChangeLog index 5d6577c..3e4fbfb 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +1999-03-13 Mikio Nakajima + + * tinycustom.el: New file. + * pcustom.el: Likewise. + + 1999-03-15 MORIOKA Tomohiko * APEL: Version 9.14 released. @@ -1503,7 +1509,7 @@ * APEL: Version 8.4 was released. - * EMU-ELS: Don't use HIRAGANA LETTER A ($(B$"(B) to detect character + * EMU-ELS: Don't use HIRAGANA LETTER A ($B$"(B) to detect character indexing (Emacs 20.3 or later). 1998-04-20 MORIOKA Tomohiko diff --git a/pcustom.el b/pcustom.el new file mode 100644 index 0000000..51418f0 --- /dev/null +++ b/pcustom.el @@ -0,0 +1,35 @@ +;;; pcustom.el -- a portable custom.el. +;; Copyright (C) 1999 Mikio Nakajima + +;; Author: Mikio Nakajima +;; Maintainer: Mikio Nakajima +;; Version: $Id: pcustom.el,v 1.1 1999-03-16 11:51:29 morioka Exp $ +;; Keywords: emulating, custom +;; Last Modified: $Date: 1999-03-16 11:51:29 $ + +;; This file is not part of APEL (A Portable Emacs Library) yet. + +;; This program is free software; you can redistribute it and/or +;; modify it under the terms of the GNU General Public License as +;; published by the Free Software Foundation; either version 2, or (at +;; your option) any later version. + +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Commentary: +;;; Code: + +(condition-case nil + (require 'custom) + (error (require 'tinycustom)) ) + +(provide 'pcustom) +;; end of pcustom.el diff --git a/tinycustom.el b/tinycustom.el new file mode 100644 index 0000000..47789ad --- /dev/null +++ b/tinycustom.el @@ -0,0 +1,61 @@ +;; tinycustom.el -- a tiny custom.el for emulating purpose. +;; Copyright (C) 1999 Mikio Nakajima + +;; Author: Mikio Nakajima +;; Maintainer: Mikio Nakajima +;; 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 program is free software; you can redistribute it and/or +;; modify it under the terms of the GNU General Public License as +;; published by the Free Software Foundation; either version 2, or (at +;; your option) any later version. + +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Commentary: +;; Purpose of this program is emulating for who does not have +;; `custom.el'. +;; DEFCUSTOM below has the same effect as the original DEFVAR has. +;; DEFGROUP and DEFFACE below are just nop macro. + +;;; Code: +(require 'poe) + +(defmacro-maybe defgroup (symbol members doc &rest args) + "Declare SYMBOL as a customization group containing MEMBERS. +SYMBOL does not need to be quoted. +Third arg DOC is the group documentation. + +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. +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))) ) + +(defmacro-maybe defface (symbol value doc &rest args) + "Declare FACE as a customizable face that defaults to SPEC. +FACE does not need to be quoted. + +This is a nop defface only for emulating purpose." + nil ) + +(provide 'tinycustom) +(provide 'custom) +;; end of tinycustom.el