User: ben Date: 05/02/04 00:56:55 Modified: xemacs/lisp ChangeLog packages.el Log: last part of behavior patch packages.el: Add actual command to suppress packages. Revision Changes Path 1.629 +5 -0 XEmacs/xemacs/lisp/ChangeLog (In the diff below, changes in quantity of whitespace are not shown.) Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.628 retrieving revision 1.629 diff -u -b -r1.628 -r1.629 --- ChangeLog 2005/02/03 21:27:58 1.628 +++ ChangeLog 2005/02/03 23:56:52 1.629 ＠＠ -1,3 +1,8 ＠＠ +2005-02-03 Ben Wing <ben(a)xemacs.org&gt; + + * packages.el (package-suppress): New. + Add actual command to suppress packages. + 2005-02-03 Jerry James <james(a)xemacs.org&gt; * dumped-lisp.el (preloaded-file-list): Add easy-mmode. 1.53 +9 -1 XEmacs/xemacs/lisp/packages.el (In the diff below, changes in quantity of whitespace are not shown.) Index: packages.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/packages.el,v retrieving revision 1.52 retrieving revision 1.53 diff -u -b -r1.52 -r1.53 --- packages.el 2005/01/15 15:17:36 1.52 +++ packages.el 2005/02/03 23:56:53 1.53 ＠＠ -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 ＠＠ 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)))