CVS update: MODIFIED: lisp ...
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>
+
+ * packages.el (package-suppress): New.
+ Add actual command to suppress packages.
+
2005-02-03 Jerry James <james(a)xemacs.org>
* 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>
;; Maintainer: Steven L Baur <steve(a)xemacs.org>
＠＠ -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)))