# HG changeset patch
# User ben
# Date 1107475013 0
# Node ID 8dc793d1d990a0e0a68bc7feb4022278e68842bb
# Parent  f5d0a1afc3ec13edc1fa2a7c279a16ef9482d1b4
[xemacs-hg @ 2005-02-03 23:56:52 by ben]
last part of behavior patch

packages.el: Add actual command to suppress packages.

diff -r f5d0a1afc3ec -r 8dc793d1d990 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Feb 03 22:51:29 2005 +0000
+++ b/lisp/ChangeLog	Thu Feb 03 23:56:53 2005 +0000
@@ -1,3 +1,8 @@
+2005-02-03  Ben Wing  <ben@xemacs.org>
+
+	* packages.el (package-suppress): New.
+	Add actual command to suppress packages.
+
 2005-02-03  Jerry James  <james@xemacs.org>
 
 	* dumped-lisp.el (preloaded-file-list): Add easy-mmode.
diff -r f5d0a1afc3ec -r 8dc793d1d990 lisp/packages.el
--- a/lisp/packages.el	Thu Feb 03 22:51:29 2005 +0000
+++ b/lisp/packages.el	Thu Feb 03 23:56:53 2005 +0000
@@ -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@xemacs.org>
 ;; Maintainer: Steven L Baur <steve@xemacs.org>
@@ -133,6 +133,14 @@
     (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)))
     (cond ((null pkg)