update keywords.

[elisp/apel.git] / pcustom.el

diff --git a/pcustom.el b/pcustom.el
index 51418f0..f4adf8f 100644 (file)
--- a/pcustom.el
+++ b/pcustom.el
@@ -1,13 +1,14 @@
 ;;; pcustom.el -- a portable custom.el.
+
 ;; Copyright (C) 1999 Mikio Nakajima <minakaji@osaka.email.ne.jp>
+;; Copyright (C) 1999 Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
 
 ;; Author: Mikio Nakajima <minakaji@osaka.email.ne.jp>
+;;     Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
 ;; Maintainer: Mikio Nakajima <minakaji@osaka.email.ne.jp>
-;; 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 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
@@ -24,12 +25,21 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;;; Commentary:
 ;;; Code:
 
-(condition-case nil
-    (require 'custom)
-  (error (require 'tinycustom)) )
+(require 'broken)
+
+(broken-facility new-custom
+  "New custom library not found; we use tinycustom for emulation."
+  (condition-case nil
+      (and (require 'custom)
+          (fboundp 'custom-declare-variable))
+    (error nil)))
+
+(if-broken new-custom
+    (require 'tinycustom)
+  (require 'custom))
 
 (provide 'pcustom)
+
 ;; end of pcustom.el