efs 1.16/dired 7.9, and emacs 19.34

Noah Friedman (friedman@splode.com)
Mon, 23 Mar 1998 16:15:14 -0800 (PST) 

--bomb-1myqEmWZvR
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Efs 1.16 and dired 7.9 seem to work fine in emacs 19.34, modulo the
relentless godforsaken mess of getting anything to work that has been
converted to use the new customs interface.  The custom.el in emacs 19.34
isn't compatible, and if you upgrade, it breaks other packages (like gnus)
which then have to be upgraded as well.

Punting all this, the way I got efs to compile/run painlessly is to load
the following stub from fixup.el, and from my .emacs.

--bomb-1myqEmWZvR
Content-Type: text/plain
Content-Disposition: inline;
	filename="cust-stub.el"
Content-Transfer-Encoding: 7bit

;;; cust-stub.el --- defcustom stub for emacs versions without custom.el

;; Copyright (C) 1997 Noah S. Friedman

;; Author: Noah Friedman <friedman@prep.ai.mit.edu>
;; Maintainer: friedman@prep.ai.mit.edu
;; Keywords: extensions
;; Created: 1997-05-28

;; $Id: cust-stub.el,v 1.1 1997/05/28 08:20:01 friedman Exp $

;; 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 this program; if not, you can either send email to this
;; program's maintainer or write to: The Free Software Foundation,
;; Inc.; 59 Temple Place, Suite 330; Boston, MA 02111-1307, USA.

;;; Commentary:

;; Emacs 19.34 and earlier, and XEmacs 19.14 and earlier, do not have the
;; `defcustom' or `defgroup' forms used for user option customization.
;; As of May 1997, many of my own programs use these forms, so I am
;; including a stub to provide backward-compatibility in earlier versions
;; of emacs.

;;; Code:

(or (featurep 'custom)
    (load "custom" t))

;;

(defmacro cust-stub-defgroup (&rest args) nil)

(defmacro cust-stub-defcustom (var value doc &rest args)
  (list 'defvar var value doc))

;;

(or (fboundp 'defgroup)
    (fset 'defgroup 'cust-stub-defgroup))

(or (fboundp 'defcustom)
    (fset 'defcustom 'cust-stub-defcustom))

;;

(provide 'cust-stub)

;;; cust-stub.el ends here

--bomb-1myqEmWZvR--