From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 30 Nov 1999 14:09:13 +0000 (+0000)
Subject: (speedbar-xemacs20p): Remove compatibility code for
X-Git-Tag: emacs-pretest-21.0.90~5924
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8f19c492197fa4ef7da112c9365d9a3960c821e6;p=emacs.git

(speedbar-xemacs20p): Remove compatibility code for
Emacs versions without custom.el.
---

diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index c8a12879fd7..b1293552140 100644
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -178,29 +178,6 @@
 (defvar speedbar-xemacs20p (and speedbar-xemacsp
 				(= emacs-major-version 20)))
 
-;; From custom web page for compatibility between versions of custom:
-(eval-and-compile
-  (condition-case ()
-      (require 'custom)
-    (error nil))
-  (if (and (featurep 'custom) (fboundp 'custom-declare-variable)
-	   ;; Some XEmacsen w/ custom don't have :set keyword.
-	   ;; This protects them against custom.
-	   (fboundp 'custom-initialize-set))
-      nil ;; We've got what we needed
-    ;; We have the old custom-library, hack around it!
-    (defmacro defgroup (&rest args)
-      nil)
-    (defmacro defface (var values doc &rest args)
-      (` (progn
-	   (defvar (, var) (quote (, var)))
-	   ;; To make colors for your faces you need to set your .Xdefaults
-	   ;; or set them up ahead of time in your .emacs file.
-	   (make-face (, var))
-	   )))
-    (defmacro defcustom (var value doc &rest args)
-      (` (defvar (, var) (, value) (, doc))))))
-
 ;; customization stuff
 (defgroup speedbar nil
   "File and tag browser frame."