Mercurial > hg > xemacs-beta

comparison lisp/packages.el @ 1410:44de306310b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-04-14 03:40:26 by youngs] 2003-04-14 Steve Youngs <youngs@xemacs.org> * package-admin.el (package-admin-find-top-directory): Use 'directory-sep-char'. (package-admin-get-install-dir): Ditto. This is so PUI won't break on platforms that don't use '/' as the directory separator. * package-get.el (package-get-pgp-available-p): New. (package-get-require-signed-base-updates): Use it. (package-get-update-base-from-buffer): Move the code that finds the gpg stuff into `package-get-pgp-available-p'. Now if you have Mailcrypt and a PGP binary installed and set up on your system, PUI will automatically default to doing PGP verification, otherwise it'll default to off. (package-get-require-base): Use the DATUM arg to `error'. (package-get-locate-index-file): Ditto. (package-get-update-base): Ditto. (package-get-update-base-entries): Ditto. (package-get-all): Ditto. (package-get-dependencies): Ditto. (package-get-info): Ditto. (package-get): Ditto. * package-info.el (batch-update-package-info): Use the DATUM arg to `error'. * package-net.el (package-net-batch-generate-bin-ini): Use the DATUM arg to `error'. * package-ui.el (pui-toggle-package-key): Use the DATUM arg to `error'. (pui-toggle-package-delete-key): Ditto. (pui-install-selected-packages): Ditto. (pui-add-required-packages): Ditto. (pui-display-info): Ditto. (list-packages-mode): Ditto. * packages.el (package-require): Use the DATUM arg to `error'.
author youngs
date Mon, 14 Apr 2003 03:40:27 +0000
parents 02909207294a
children cd15d235fdeb
comparison
equal deleted inserted replaced
1409:d9b958c0f772 1410:44de306310b8
132 (cons (cons name info) (remassq name packages-package-list))))) 132 (cons (cons name info) (remassq name packages-package-list)))))
133 133
134 (defun package-require (name version) 134 (defun package-require (name version)
135 (let ((pkg (assq name packages-package-list))) 135 (let ((pkg (assq name packages-package-list)))
136 (cond ((null pkg) 136 (cond ((null pkg)
137 (error "Package %s has not been loaded into this XEmacsen" 137 (error 'invalid-state
138 name)) 138 (format "Package %s has not been loaded into this XEmacsen"
139 name)))
139 ((< (package-get-key name :version) version) 140 ((< (package-get-key name :version) version)
140 (error "Need version %g of package %s, got version %g" 141 (error 'search-failed
141 version name (cdr pkg))) 142 (format "Need version %g of package %s, got version %g"
143 version name (cdr pkg))))
142 (t t)))) 144 (t t))))
143 145
144 (defun package-delete-name (name) 146 (defun package-delete-name (name)
145 (let (pkg) 147 (let (pkg)
146 ;; Delete ALL versions of package. 148 ;; Delete ALL versions of package.