From d31e8e871c1942771b8b1296338cde5434882e84 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Tue, 25 Dec 2007 19:21:38 +0000 Subject: * calculator.el: * dframe.el: * iswitchb.el: * whitespace.el: * winner.el: * emacs-lisp/checkdoc.el: * mail/feedmail.el: * net/quickurl.el: * obsolete/fast-lock.el: * play/5x5.el: * progmodes/delphi.el: * progmodes/idlw-shell.el: * progmodes/idlwave.el: * textmodes/artist.el: * textmodes/ispell.el: * textmodes/texinfmt.el: * textmodes/texinfo.el: Remove obsolete definitions of backward compatibility macros for defcustom, defgroup, defface, when, unless, with-current-buffer and with-temp-message. --- lisp/dframe.el | 29 ----------------------------- 1 file changed, 29 deletions(-) (limited to 'lisp/dframe.el') diff --git a/lisp/dframe.el b/lisp/dframe.el index 53a07ff3811..43cf6212d2a 100644 --- a/lisp/dframe.el +++ b/lisp/dframe.el @@ -114,35 +114,6 @@ (defvar x-pointer-top-left-arrow) ;;; Code: - -;; From custom web page for compatibility between versions of custom -;; with help from ptype@dera.gov.uk (Proto Type) -(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! - (if (boundp 'defgroup) - nil - (defmacro defgroup (&rest args) - nil)) - (if (boundp 'defface) - nil - (defmacro defface (var values doc &rest args) - ;; 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) - )) - (if (boundp 'defcustom) - nil - (defmacro defcustom (var value doc &rest args) - `(defvar ,var ,value ,doc))))) - ;;; Compatibility functions ;; -- cgit v1.2.1