Mercurial > hg > xemacs-beta

comparison lisp/packages.el @ 2557:8dc793d1d990

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-02-03 23:56:52 by ben] last part of behavior patch packages.el: Add actual command to suppress packages.
author ben
date Thu, 03 Feb 2005 23:56:53 +0000
parents 505a24c07ba9
children 15139dbf89f4
comparison
equal deleted inserted replaced
2556:f5d0a1afc3ec 2557:8dc793d1d990
1 ;;; packages.el --- Low level support for XEmacs packages 1 ;;; packages.el --- Low level support for XEmacs packages
2 2
3 ;; Copyright (C) 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1997 Free Software Foundation, Inc.
4 ;; Copyright (C) 2002, 2003 Ben Wing. 4 ;; Copyright (C) 2002, 2003, 2004 Ben Wing.
5 5
6 ;; Author: Steven L Baur <steve@xemacs.org> 6 ;; Author: Steven L Baur <steve@xemacs.org>
7 ;; Maintainer: Steven L Baur <steve@xemacs.org> 7 ;; Maintainer: Steven L Baur <steve@xemacs.org>
8 ;; Keywords: internal, lisp, dumped 8 ;; Keywords: internal, lisp, dumped
9 9
130 (let ((info (if (and attributes (floatp (car attributes))) 130 (let ((info (if (and attributes (floatp (car attributes)))
131 (list :version (car attributes)) 131 (list :version (car attributes))
132 attributes))) 132 attributes)))
133 (setq packages-package-list 133 (setq packages-package-list
134 (cons (cons name info) (remassq name packages-package-list))))) 134 (cons (cons name info) (remassq name packages-package-list)))))
135
136 (defun package-suppress (package file form)
137 "Set up a package-suppress condition FORM for FILE in PACKAGE.
138 When XEmacs searches for a file in the load path, it will ignore FILE
139 if FORM evaluates to non-nil."
140 (setq load-suppress-alist
141 (acons (expand-file-name file load-file-name) form
142 load-suppress-alist)))
135 143
136 (defun package-require (name version) 144 (defun package-require (name version)
137 (let ((pkg (assq name packages-package-list))) 145 (let ((pkg (assq name packages-package-list)))
138 (cond ((null pkg) 146 (cond ((null pkg)
139 (error 'invalid-state 147 (error 'invalid-state