[COMMIT] last part of behavior patch

NOTE: This patch has been committed. Forgotten, and rather important. lisp/ChangeLog addition: 2005-02-03 Ben Wing <ben(a)xemacs.org&gt; * packages.el (package-suppress): New. Add actual command to suppress packages. behavior source patch: Diff command: bash -ci "cvs-diff --show-c-function -no-changelog " Files affected: lisp/packages.el Index: lisp/packages.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/packages.el,v retrieving revision 1.52 diff -u -p -r1.52 packages.el --- lisp/packages.el 2005/01/15 15:17:36 1.52 +++ lisp/packages.el 2005/02/03 23:55:59 ＠＠ -1,7 +1,7 ＠＠ ;;; packages.el --- Low level support for XEmacs packages ;; Copyright (C) 1997 Free Software Foundation, Inc. -;; Copyright (C) 2002, 2003 Ben Wing. +;; Copyright (C) 2002, 2003, 2004 Ben Wing. ;; Author: Steven L Baur <steve(a)xemacs.org&gt; ;; Maintainer: Steven L Baur <steve(a)xemacs.org&gt; ＠＠ -132,6 +132,14 ＠＠ directories, directories with higher pri attributes))) (setq packages-package-list (cons (cons name info) (remassq name packages-package-list))))) + +(defun package-suppress (package file form) + "Set up a package-suppress condition FORM for FILE in PACKAGE. +When XEmacs searches for a file in the load path, it will ignore FILE +if FORM evaluates to non-nil." + (setq load-suppress-alist + (acons (expand-file-name file load-file-name) form + load-suppress-alist))) (defun package-require (name version) (let ((pkg (assq name packages-package-list)))