From 02dd521058e6ca132c7dcf7549f37cd9614d9865 Mon Sep 17 00:00:00 2001
From: shuhei-k <shuhei-k>
Date: Mon, 5 Apr 1999 14:14:43 +0000
Subject: [PATCH] New implementation using broken.el.

---
 pcustom.el |   17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/pcustom.el b/pcustom.el
index c687061..f4adf8f 100644
--- a/pcustom.el
+++ b/pcustom.el
@@ -1,8 +1,10 @@
 ;;; 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>
 ;; Keywords: emulating, custom
 
@@ -25,9 +27,18 @@
 
 ;;; 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)
 
-- 
1.7.10.4